|
Dim dr = DataTables("订单主表").find("订单编号 = '" & e.form.controls("订单编号").Text & "'")
If dr IsNot Nothing Then
e.form.controls("TextBox3").Text = dr("产品名称")
e.form.controls("TextBox4").Text = dr("产品型号")
e.form.controls("DateTimePicker1").Text = iif(dr("预交日期")=Nothing, Date.today, dr("预交日期"))
Else
e.form.controls("TextBox3").Text = Nothing
e.form.controls("TextBox4").Text = Nothing
e.form.controls("DateTimePicker1").Text = Nothing
End If
|
加好友 
发短信
Post By：2018/6/7 17:21:00 [只看该作者]
