以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]定位  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91244)

--  作者：江南小城 --  发布时间：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编辑过]

--  作者：狐狸爸爸 --  发布时间：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

--  作者：江南小城 --  发布时间：2016/10/5 16:10:00 --    老师，上面的代码有点不理解，我在出库明细表输入客户信息时客户信息需要修改我就通过编辑按钮返回出库明细表ID相同的客户表的行然后进行修改同时把客户表其他的行隐藏。

--  作者：狐狸爸爸 --  发布时间：2016/10/5 22:04:00 --   抱歉，我看不懂你的问题

--  作者：江南小城 --  发布时间：2016/10/6 8:55:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:光标.table 此主题相关图片如下：图像 4.png

--  作者：有点蓝 --  发布时间：2016/10/6 9:48:00 --   就是2楼的用法，筛选当前用户就相当于隐藏了其它用户

--  作者：江南小城 --  发布时间：2016/10/6 10:01:00 --   老师，代码摆在哪里啊

--  作者：有点蓝 --  发布时间：2016/10/6 10:11:00 --   你1楼的代码想摆在哪，修改后的代码就在哪

--  作者：江南小城 --  发布时间：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

--  作者：有点蓝 --  发布时间：2016/10/6 10:50:00 --   既然知道，那就吧上面代码的表名和列名改为自己的表名和列名