程序如下:
Private Sub retu_input_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDb_retuinput_quest_retu.Fill(DataSet_retuinput_quest_retu1)
Binding_retuinput_qeust_retu.AddNew()
Tex_retu_input_saledate.Text = retu.saledate
Tex_retu_input_customer.Text = retu.customer
Tex_retu_input_saleprice.Text = retu.price
Tex_retu_input_blno.Text = retu.blno
Tex_retu_input_comid.Text = retu.comid
tex_retuinput_retu_date.Text = Today.Date
stop
Dim comid As String
comid = Tex_retu_input_comid.Text
OleDb_retuinput_commodity.SelectCommand.CommandText = "select * from commodity where [com_id] like '%" + comid + "%'"
OleDb_retuinput_commodity.