主题：多表检索查询

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

代码如下：

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显示一下合成的条件表达式是什么，大概就清楚原因了。

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

http://www.foxtable.com/help/topics/1485.htm

 

 

你的问题出在：

 

 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

你连了两个txt，你有多个地方，全部改过来。

哦~~~~~谢谢哈！！

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

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

你下面这行什么意思？ 是不是应该删除？

 

tbl4.filter =tbl3.filter =tbl2.filter = tbl1.filter

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

 再贴出一次代码来看看吧……应该又是哪个引号写错了。