Dim txt As String = e.Form.Controls("TextBox1").Text
If txt ="" Then
MessageBox.Show("填入查询条件")
Else
DataTables("A").LoadFilter =""
DataTables("A").LoadFilter = "第一列 Like '%" & txt & "%'"
DataTables("A").Load()
End If
If DataTables("A").DataRows.Count = 0 Then '如果订单表没有数据
DataTables("B").LoadFilter = "第二列 Is Null" '不加载订单明细
Else
Dim ids As String
For Each dr As DataRow In DataTables("A").DataRows
ids = ids & "," & dr("第一列")
Next
ids= ids.Trim(",")
DataTables("B").LoadFilter = "第二列 In ('" & ids & "')"
End If
DataTables("B").Load()
[此贴子已经被作者于2013-7-27 2:12:40编辑过]
加好友 
发短信
Post By：2013/7/27 1:55:00 [显示全部帖子]
