主题：多表检索查询

代码：

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl1 As Table = Tables("信息")
Dim tbl2 As Table = Tables("投标项目")
Dim tbl3 As Table = Tables("新进事业部")
Dim tbl4 As Table = Tables("合作")
If txt = "" Then
    tbl1.Filter = ""
    tbl2.Filter = ""
    tbl3.Filter = ""
    tbl4.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl1.Filter = " 时间 Like " & txt & " Or 业主名称 Like " & txt & " Or 工程名称 Like " & txt & " Or 工程类别和地点 Like " & txt  & " Or 经办人 Like " & txt & " Or 联系方式 Like " & txt    & " Or 备注1 Like " & txt  & " Or 介绍信 Like " & txt  &  " Or 时间1 Like " & txt & " Or 备注2 Like " & txt & " Or 性质 Like " & txt
    tbl2.Filter = " 序号 Like " & txt & " Or 工程名称 Like " & txt & " Or 保证金转入地 Like " & txt & " Or 金额 Like " & txt  & " Or 开标时间 Like " & txt & " Or 交款时间 Like " & txt    & " Or 中标情况 Like " & txt  & " Or 联系人 Like " & txt  & " Or 备注 Like " & txt & " Or 开标地点 Like " & txt & " Or 其他 Like " & txt
    tbl3.Filter = " 时间 Like " & txt & " Or 负责人 Like " & txt & " Or 工程类别和地点 Like " & txt & " Or 经办人 Like " & txt  & " Or 联系方式 Like " & txt & " Or 备注 Like " & txt    & " Or 介绍信 Like " & txt  & " Or 性质 Like " & txt 
    tbl4.Filter = " 单位 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt & " Or 办公室电话 Like " & txt  & " Or 手机 Like " & txt & " Or 甲级 Like " & txt    & " Or 法人姓名 Like " & txt  & " Or 技术负责人 Like " & txt  & " Or 注册资金 Like " & txt
    'tbl4.filter =tbl3.filter =tbl2.filter = tbl1.filter'
End If

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t4 As WinForm.TextBox = e.Form.Controls("TextBox2")
t1.Value = "本次查询表中共有" & tbl1.Rows.count & "条记录"'
t2.Value = "本次查询表中共有" & tbl2.Rows.count & "条记录"'
t3.Value = "本次查询表中共有" & tbl3.Rows.count & "条记录"'

 

是不是红色那个有问题哦？

但取消红色代码在textbox2中显示出的结果不正确

你这行的意思是什么？

把查询结果统一起来

什么叫做“把查询结果统一起来 ”？

就是在textbox2中能够显示出一共搜索出了多少条信息

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t4 As WinForm.TextBox = e.Form.Controls("TextBox2")
t1.Value = "本次查询表中共有" & tbl1.Rows.count & "条记录"'
t2.Value = "本次查询表中共有" & tbl2.Rows.count & "条记录"'
t3.Value = "本次查询表中共有" & tbl3.Rows.count & "条记录"'

----------------------------------------------------------------

红色那个可以删除了。应该是上面这段代码写错了吧？怎么t1,t2,t3,t4都是TextBox2？

我都想在TextBox2里面显示出搜索结果，这样不行吗？

？？？？？？？？？、

我解决了，把那个红色删除可以~~谢谢了哈！