RT 下面的问题已经解决,但是又出来一个棘手的问题,筛选后的数据我双击是可以打开编辑数据的,但是如果这个数据不是属于当前用户名的 那么双击打开编辑窗口没有内容,但是记录窗口有,这是怎么回事呢,如果数据是属于当前用户的 那么都是正常的。

此主题相关图片如下:狐表问题.jpg

【狐爸修改的实例在19楼,在这个实例下修改实现的 感谢所有朋友对我的帮助】
是这样的 我有一个客户信息表,里面有一个所有者列,我设置了用户登录后如果不是管理员组的则只显示所有者列等于当前用户的数据,用的是如下代码加在LoadUserSetting事件
If User.group = "管理员" Then
DataTables("客户信息表").LoadFilter = ""
Else
DataTables("客户信息表").LoadFilter = "所有者 = '" & User.name & "'"
End If
DataTables("客户信息表").Load()
同事我还有一个查找客户的窗口,在里面的一个TEXTBOX输入客户名的关键词就会动态的筛选出符合条件的数据,但是这个被筛选的数据仅限于所有者列为当前用户名的,我想实现可以全局整个表查找,但是这个窗口加载后只显示所有者列=当前用户的数据,我在TextChanged事件用的代码如下
Dim txt As String = e.Form.Controls("查找条件").Text
Dim tbl As Table = Tables("查找客户_查找客户")
If txt = "" Then
tbl.Filter = ""
Tables("客户信息表").Filter=tbl.Filter
Else
txt = "'*" & txt & "*'"
tbl.Filter = "客户名称 Like " & txt & " Or 助记名称 Like " & txt & " Or 销售机会 Like " & txt & " Or 联系人 Like " & txt
Tables("客户信息表").Filter=tbl.Filter
End If
请大家帮帮忙 不是我不思进取,是公司着急用 我必须先让客户收集这块先能 用起来,不然我们丢客户太多了 拜托大家帮帮忙 最好可以弄个实例 万分感谢!
【狐爸修改的实例在19楼,在这个实例下修改实现的 感谢所有朋友对我的帮助】
[此贴子已经被作者于2013-11-14 17:46:18编辑过]