Dim khddcx As String = e.Form.Controls("客户订单查询").text
If khddcx = "" Then
MessageBox.show("请输入客户名称或者客户订单号码!","提示")
Return
Else
DataTables("客户订单主表").LoadFilter = "客户名称 Like '%" & khddcx & "%' or 订单号码 Like '%" & khddcx & "%'"
DataTables("客户订单主表").Load()
If DataTables("客户订单主表").DataRows.Count = 0 Then
MessageBox.show("没有查找到相关客户订单!","提示")
Return
Else
Dim ids As String
For Each dr As DataRow In DataTables("客户订单主表").DataRows
ids = ids & ",'" & dr("客户订单编号") & "'"
ids= ids.Trim(",")
DataTables("客户订单子表").LoadFilter = "客户订单编号 In (" & ids & ")"
Next
End If
End If
DataTables("客户订单子表").LoadTop = ""
DataTables("客户订单子表").Load()
============================================以上是查询客户订单主表字段的代码
如果通过一键查询子表字段的,要如何设计呢?就是在同一个查询按钮下,查询子表的字段,然后加载主表相应的数据
此主题相关图片如下:1.jpg
如图查询框
[此贴子已经被作者于2013-4-11 16:40:09编辑过]