多条件查找（解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

主题：多条件查找（解决）