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


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

主题：[求助]定位
帅哥哟，离线，有人找我吗？
江南小城
 小大  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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/10/5 16:10:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/10/6 8:55:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:光标.table


图片点击可在新窗口打开查看此主题相关图片如下：图像 4.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/10/6 10:01:00 [显示全部帖子]

老师，代码摆在哪里啊

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/10/6 11:16:00 [显示全部帖子]

以下是引用江南小城在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
老师，如果出库明细表引用通讯录中的客户ID和客户名称时该客户名称需要修改我要通过窗口按钮返回通讯录同时定位刚引用的客户名称行进行编辑修改。希望能隐藏没有引用的行，上面代码无法进行如此操作。

[此贴子已经被作者于2016/10/6 11:21:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/10/6 11:56:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：图像 5.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/10/6 13:04:00 [显示全部帖子]

谢谢老师，就是这样的效果。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/10/6 13:58:00 [显示全部帖子]

以下是引用有点蓝在2016/10/6 12:03:00的发言：
编辑按钮
e.Form.DropDownBox.CloseDropdown(False)
Dim r As Row = e.Form.Controls("Table1").Table.Current
If r IsNot Nothing Then
    Tables("通讯录").Filter = "[_Identify] = " & r("_Identify")
    Forms("通讯录").Open()
End If



老师，我通讯录表是主窗口显示通过编辑按钮返回时好像还是不行，我设置了一个独立窗口可以操作，可是马上被主窗口覆盖了。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/10/6 17:04:00 [显示全部帖子]

e.Form.DropDownBox.CloseDropdown(False)
Dim r As Row = e.Form.Controls("Table1").Table.Current
If r IsNot Nothing Then
    Tables("通讯录").Filter = "[_Identify] = " & r("_Identify")
    Forms("通讯").Open()
End If


老师，如果我把通讯窗口表设置成副本表不筛选否副本可以。我希望能筛选通讯窗口的副本。
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.14404 秒, 6 次数据查询