Foxtable(狐表) → 用户栏目 → 专家坐堂 → 位置联动的问题


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

主题：位置联动的问题
帅哥哟，离线，有人找我吗？
douglas738888
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		位置联动的问题  发帖心情 Post By：2016/6/20 15:43:00 [只看该作者]

请教老师，下面这段代码是从 主窗口_table27 的一个副本表，通过信息编号找同窗口下，不同页面的  主窗口_Table8

总报错，找不到 主窗口_Table8，未应用对象实例

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("主窗口_Table8").Find("[信息编号] = '" & e.Table.Current("信息编号") & "'")
If dr IsNot Nothing Then
    wz = Tables("主窗口_Table8").FindRow(dr)
    If wz >= 0 Then
        Tables("主窗口_Table8").Position = wz
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47477 积分：251256 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2016/6/20 15:46:00 [只看该作者]

三种可能：

 

1、主窗口没有打开

2、或者窗口名称不是“主窗口”

3、或者控件名称不是Table8
 回到顶部
帅哥哟，离线，有人找我吗？
douglas738888
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		  发帖心情 Post By：2016/6/20 22:20:00 [只看该作者]

大红袍老师，根据狐狸爸爸的三种可能进行了排查，都好像没有问题

主窗口_Table27 是副本，主窗口_Table8也是副本，名称都对的，表也存在的     不知问题在哪里？
以下代码是在 主窗口_Table27的    CurrentChanged里面的

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("主窗口_Table8").Find("[信息编号] = '" & e.Table.Current("信息编号") & "'")
If dr IsNot Nothing Then
    wz = Tables("主窗口_Table8").FindRow(dr)
    If wz >= 0 Then
        Tables("主窗口_Table8").Position = wz
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/20 22:24:00 [只看该作者]

加上判断

 

If forms("主窗口").opened = false then return
 回到顶部
帅哥哟，离线，有人找我吗？
douglas738888
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		  发帖心情 Post By：2016/6/20 22:44:00 [只看该作者]

还在报错，做了例子，请老师看看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:编号.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/20 23:17:00 [只看该作者]

 哪个窗口，怎么测试。

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


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		  发帖心情 Post By：2016/6/20 23:19:00 [只看该作者]

表A 表B ，这么晚，谢谢老师
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/20 23:19:00 [只看该作者]

代码这样写

 

If forms("窗口1").opened = False Then Return

Dim wz As Integer = Tables("窗口1_Table1").FindRow("[编号] = '" & e.Table.Current("编号") & "'")

If wz >= 0 Then
    Tables("窗口1_Table1").Position = wz
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询