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

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

共有2539人关注过本帖树形打印复制链接主题：[求助]弹出bug

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/30 11:01:00 [显示全部帖子]

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

图片点击可在新窗口打开查看

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/30 11:26:00 [显示全部帖子]

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

2、做一个内部数据源或者access数据源的实例上来测试。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/30 15:07:00 [显示全部帖子]

生成表格的时候，就会触发currentChanged事件了，这个时候如果你表2没有生成，那就会提示找不到对应的列。

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

主题：[求助]弹出bug