主题：多表检索查询

做了一个多个表格的检索查询，可是有错误，自己找不到，帮帮忙吧！

代码如下：

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  & txt & " Or 时间1 Like " & txt & " Or 备注2 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  & 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 & "条记录"'

t4.Value = "本次查询表中共有" & tbl4.Rows.count & "条记录"'

用这个代码运行有这个错误，如下图：

 

 

此主题相关图片如下：odgdr@rhnra8zo4txv`qsgd.jpg

？？？

这个错误是什么意思啊？？？MessageBox.show是什么东西哦？

哦~~~~~谢谢哈！！

还是有这么一个错误
此主题相关图片如下：9$zb61st0@fzq93s{3u5%~8.jpg

是不是由于有些列的内容相同然后查找所造成的哦？

以前这么用才可以搜索全部指定的所有表格，不对吗？

代码：

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中能够显示出一共搜索出了多少条信息

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