Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]弹出bug


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

主题：[求助]弹出bug
帅哥哟，离线，有人找我吗？
2474842866
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		[求助]弹出bug  发帖心情 Post By：2019/5/30 10:22:00 [只看该作者]

老师，之前的项目中，我已经完成了两张表的关联了，但是总是在启动项目时会弹出不存在列（此列是关联表的关联列）

图片点击可在新窗口打开查看此主题相关图片如下：360截图20190530101743699.jpg
图片点击可在新窗口打开查看

但是功能是正常的，测试后发现是在currentchangge事件执行下述代码才出现的：（上面红色字体是问题，下面红色字体是关联列）

Dim t As Table = Tables("采购系统_tb.1.3.1")   '定义变量父表
Dim t0 As Table = Tables("采购系统_tb.1.3.2")  '定义变量关联表子表
With t
    If .Current Is Nothing Then    '如果父表当前格是空
        t0.Filter = "False"        '不进行过滤
    Else                           '若不为空
        t0.Filter = " 商家编码 = '" & .Current("商家编码") & "'"   '筛选出子表的商家编码等同父表的商家编码行
    End If
End With

[此贴子已经被作者于2019/5/30 10:24:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/30 10:46:00 [只看该作者]

加入代码

 

msgbox(t.cols.contains("商家编码"))

msgbox(t0.cols.contains("商家编码"))

 

循环每一列，弹出列名看看

 

http://www.foxtable.com/webhelp/scr/0561.htm

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


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/30 10:58:00 [只看该作者]

弹出true
[此贴子已经被作者于2019/5/30 11:00:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/30 11:01:00 [只看该作者]

输出项目所有代码，把代码发出来看看

 

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/30 11:15:00 [只看该作者]

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/30 11:26:00 [只看该作者]

1、什么时候报错的？打开窗口报错，还是点击某一行的时候报错？

 

2、做一个内部数据源或者access数据源的实例上来测试。
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/30 11:33:00 [只看该作者]

打开窗口报错，运行的时候不会报错

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/30 11:39:00 [只看该作者]

AfterLoad事件，先加载1.3.2，再加载1.3.1

 

Tables("采购系统_tb.1.3.2").fill

Tables("采购系统_tb.1.3.1").fill
 回到顶部
帅哥哟，离线，有人找我吗？
2474842866
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00 		  发帖心情 Post By：2019/5/30 12:23:00 [只看该作者]

解决了，还是老师的对，就是表二应该优先生成，否则，表一生成后执行currentchangged事件时不存在表二，会报错。唯一有点奇怪的是他报的是父表不存在关联列，不应该是关联表不存在表二吗，我这一点不得其解，但是调换了表的顺序，程序不在报错，老师说的应该是正确的！测试已经成功了，感谢老师
[此贴子已经被作者于2019/5/30 12:32:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/30 12:33:00 [只看该作者]

加入判断，如

 

Dim t As Table = Tables("采购系统_tb.1.3.1")   '定义变量父表
Dim t0 As Table = Tables("采购系统_tb.1.3.2")  '定义变量关联表子表
If t0.cols.contains("商家编码") Then
    With t
        If .Current Is Nothing Then    '如果父表当前格是空
            t0.Filter = "False"        '不进行过滤
        Else                           '若不为空
            t0.Filter = " 商家编码 = '" & .Current("商家编码") & "'"   '筛选出子表的商家编码等同父表的商家编码行
        End If
    End With
End If
 回到顶部
总数 12 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.05371 秒, 5 次数据查询