- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- like模糊代码（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57364)
-- 发布时间：2014/9/23 16:03:00
-- like模糊代码（已解决）
在加载不同表数据用FILL方法时，姓名模糊筛选
Dim na As String = e.Form.Controls("TextBox1").text
If na IsNot Nothing Then
Tables(e.Form.name & "_table1").Fill("Select [档案号],[委员号],[姓名],[性别],[界别],[联委会] From {委员资料} Where 姓名 Like \'%" & na & "% \'","hszx",True)
End If
Tables(e.Form.name & "_table1").SetColVisibleWidth("姓名|55|性别|35|界别|55|联委会|50")
Tables(e.Form.name & "_table1").Sort="委员号"
出现
此主题相关图片如下：20140923160306.jpg
-- 发布时间：2014/9/23 16:05:00
--
你的表事件 CurrentChanged 事件有错，你贴出对应的代码。
-- 发布时间：2014/9/23 16:10:00
--
表一事件
Dim da As String=Tables(e.Form.name & "_table1").Current("档案号")
Tables(e.Form.name & "_table2").DataTable.LoadFilter="档案号 = \'" & da & "\'"
Tables(e.Form.name & "_table2").DataTable.Load
-- 发布时间：2014/9/23 16:11:00
--
改一下
If Tables(e.Form.name & "_table1").Current IsNot Nothing Then
Dim da As String=Tables(e.Form.name & "_table1").Current("档案号")
Tables(e.Form.name & "_table2").DataTable.LoadFilter="档案号 = \'" & da & "\'"
Tables(e.Form.name & "_table2").DataTable.Load
End If
-- 发布时间：2014/9/23 16:12:00
--
此主题相关图片如下：5555.jpg
-- 发布时间：2014/9/23 17:24:00
--
问题对话窗消失，筛选无效果，
-- 发布时间：2014/9/23 17:27:00
--
无效就是没对应的行,上个例子看看
-- 发布时间：2014/9/23 17:37:00
--
谢谢有点甜老师，现在的代码只是实现主要功能，还有好多判断未写，想不到出现对话窗出错，另外修改了代码，已经可以实现模糊筛选
Dim na As String = e.Form.Controls("TextBox1").text
If na IsNot Nothing Then
Dim Filter As String
Filter = "姓名 Like \'%" & na & "%\'and 现任 = 1"
Tables(e.Form.name & "_table1").Fill("Select [档案号],[委员号],[姓名],[性别],[界别],[联委会] From {委员资料} Where " & Filter,"hszx",True)
End If
Tables(e.Form.name & "_table1").SetColVisibleWidth("姓名|55|性别|35|界别|55|联委会|50")
Tables(e.Form.name & "_table1").Sort="委员号"