[求助]定位 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]定位

共有2818人关注过本帖树形打印复制链接主题：[求助]定位

江南小城

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

[求助]定位 发帖心情

Post By：2016/10/5 10:04: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

[此贴子已经被作者于2016/10/5 10:26:03编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/10/5 11:17: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
Tables("客户").Filter = "[_Identify] = " & dr("_Identify")
End If

江南小城

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2016/10/5 16:10:00 [只看该作者]

老师，上面的代码有点不理解，我在出库明细表输入客户信息时客户信息需要修改我就通过编辑按钮返回出库明细表ID相同的客户表的行然后进行修改同时把客户表其他的行隐藏。

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/10/5 22:04:00 [只看该作者]

抱歉，我看不懂你的问题

江南小城

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2016/10/6 8:55:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:光标.table

此主题相关图片如下：图像 4.png

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/6 9:48:00 [只看该作者]

就是2楼的用法，筛选当前用户就相当于隐藏了其它用户

江南小城

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2016/10/6 10:01:00 [只看该作者]

老师，代码摆在哪里啊

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/6 10:11:00 [只看该作者]

你1楼的代码想摆在哪，修改后的代码就在哪

江南小城

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2016/10/6 10:43:00 [只看该作者]

老师，我把下面代码摆在CurrentChanged事件中可不起作用。出库明细表列名称是"客户"、通讯录列名称是"客户供应商"

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
Tables("客户").Filter = "[_Identify] = " & dr("_Identify")
End If

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/6 10:50:00 [只看该作者]

既然知道，那就吧上面代码的表名和列名改为自己的表名和列名

下一主题 >> << 上一主题

总数 22 1 2 3 下一页

主题：[求助]定位