通过选择订单编号文本框中内容,自动赋值给产品名称、产品型号、预交日期通过下面代码能够实现产品名称和产品型号的赋值,但订单主表中预交日期为空时,预交日期文本框内容显示为当天日期。
求各位老师帮忙改一下,十分感谢。
Dim drs As List(Of DataRow) = DataTables("订单主表").Select("订单编号 = '" & e.form.controls("订单编号").Text & "'")
If drs.count > 0 Then
e.form.controls("TextBox3").Text = drs(0)("产品名称")
e.form.controls("TextBox4").Text = drs(0)("产品型号")
e.form.controls("DateTimePicker1").Text = drs(0)("预交日期")
Else
e.form.controls("TextBox3").Text = Nothing
e.form.controls("TextBox4").Text = Nothing
e.form.controls("DateTimePicker1").Text = Nothing
End If