| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 多条件查找（解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128808) |
| -- 作者：taifeng110 -- 发布时间：2018/12/15 15:15:00 -- 多条件查找（解决） 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2018/12/15 15:26:00 -- 条件没有问题，这样试试 …… UNM=e.Form.Controls("TextBox2").text \'窗体上的客户编号 UNM2=e.Form.Controls("TextBox9").text \'窗体上的收货地址 ……
|
| -- 作者：taifeng110 -- 发布时间：2018/12/15 15:56:00 -- 不行 原来的查找条件改成单条件的就可以找到 问题是，有可能一个客户有2个收货地址，不同的收货人，所以必须要按照客户编号和收货地址，找联系人和手机号码
|
| -- 作者：有点蓝 -- 发布时间：2018/12/15 16:04:00 -- dr = DataTables("客户收货地址").SQLFind("客户编号=\'" & UNM & "\' and 收货地址=\'" & UNM2 & "\'") |