Foxtable(狐表)用户栏目专家坐堂 → 关于后台筛选数据和编辑 新的问题又出来了


  共有5768人关注过本帖平板打印复制链接

主题:关于后台筛选数据和编辑 新的问题又出来了

帅哥哟,离线,有人找我吗?
ichoo31
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:81 积分:626 威望:0 精华:0 注册:2013/7/5 19:14:00
关于后台筛选数据和编辑 新的问题又出来了  发帖心情 Post By:2013/11/7 9:16:00 [只看该作者]

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编辑过]

 回到顶部
总数 24 1 2 3 下一页