Dim dr As DataRow
Dim UNM As String
Dim UNM2 As String
UNM=e.Form.Controls("TextBox2").value '窗体上的客户编号
UNM2=e.Form.Controls("TextBox9").value '窗体上的收货地址
dr = DataTables("客户收货地址").SQLFind("客户编号='" & UNM & "'" & "收货地址='" & UNM2 & "'")
If dr IsNot Nothing Then '如果找到符合条件的行
MessageBox.Show("ok")
e.Form.Controls("TextBox5").value = dr("联系人") '查找到后赋值给窗体上的联系人
e.Form.Controls("TextBox4").value = dr("手机号码") '查找到后赋值给窗体上的手机号码
End If
窗体上的值变化事件
"客户编号='" & UNM & "'" & "收货地址='" & UNM2 & "'"是不是写错了，窗体上手机号和联系人好像找不到。
[此贴子已经被作者于2019/1/6 18:38:31编辑过]
加好友 
发短信
Post By：2018/12/15 15:15:00 [只看该作者]
