Foxtable(狐表)用户栏目专家坐堂 → [求助] currentchanged 事件


  共有1120人关注过本帖树形打印复制链接

主题:[求助] currentchanged 事件

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


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助] currentchanged 事件  发帖心情 Post By:2024/5/8 9:14:00 [显示全部帖子]

老师,下面的代码是不是对筛选后的当前行没用?筛选前可以,筛选后就不执行了。

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End
If

Dim
wz As Integer
Dim
dr As DataRow
dr = DataTables("客户").Find("[客户ID] = '" & e.Table.Current("客户ID") & "'")
If
dr IsNot Nothing Then
    wz = Tables("客户").FindRow(dr)
    If wz >= 0 Then
        Tables
("客户").Position = wz
    End If
End
If


 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2024/5/8 9:34:00 [显示全部帖子]

老师,这个筛选前后格式一样啊


图片点击可在新窗口打开查看此主题相关图片如下:{7eb76961-0b10-45c8-b28f-47b0376fc86e}.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2024/5/8 9:45:00 [显示全部帖子]

搞错了,不行
[此贴子已经被作者于2024/5/8 9:55:27编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2024/5/8 10:16:00 [显示全部帖子]

老师,上面的窗口表,在筛选前那段代码是执行的,就是点击一行与该行绑定的控件信息都会更新该行的数据,
但是筛选后点击表里各行,与之绑定的控件数据就么有变化了。

 回到顶部