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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=169062)

--  作者：gv2000
--  发布时间：2021/6/1 9:15:00
--  求助

老师好：

我发现我的表加载后在窗口中显示有问题，下面的代码还要怎么改

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "生产单号 = \'"& e.Table.Current("编号") &"\'"
    If DataTables("生产工序表").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
        DataTables("生产工序表").AppendLoad(Filter) \'则追载此订单的订单明细
    End If
    If DataTables("生产_产品表").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
        DataTables("生产_产品表").AppendLoad(Filter) \'则追载此订单的订单明细
    End If
   Dim Filter2 As String = "编号 = \'"& e.Table.Current("编号") &"\'"
    If DataTables("生产标准用量表").Find(Filter2) Is Nothing Then \'如果对应的订单明细没有加载过
        DataTables("生产标准用量表").AppendLoad(Filter2) \'则追载此订单的订单明细
    End If
End If
此主题相关图片如下：微信图片_20210601091238.jpg

此主题相关图片如下：微信图片_20210601091242.jpg

--  作者：有点蓝
--  发布时间：2021/6/1 9:20:00
--
显示有什么问题？按眼睛不好，看不清楚图

--  作者：gv2000
--  发布时间：2021/6/1 9:25:00
--

就是子表数据不显示，但是再打开一次这一条数据就会显示

--  作者：有点蓝
--  发布时间：2021/6/1 9:35:00
--
If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "生产单号 = \'"& e.Table.Current("编号") &"\'"
    If DataTables("生产工序表").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
msgbox(1) ‘能不能弹出？
        DataTables("生产工序表").AppendLoad(Filter) \'则追载此订单的订单明细
    End If
    If DataTables("生产_产品表").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
msgbox(2) ‘能不能弹出？
        DataTables("生产_产品表").AppendLoad(Filter) \'则追载此订单的订单明细
    End If
   Dim Filter2 As String = "编号 = \'"& e.Table.Current("编号") &"\'"
    If DataTables("生产标准用量表").Find(Filter2) Is Nothing Then \'如果对应的订单明细没有加载过
msgbox(3) ‘能不能弹出？
        DataTables("生产标准用量表").AppendLoad(Filter2) \'则追载此订单的订单明细
    End If
End If

--  作者：gv2000
--  发布时间：2021/6/1 10:38:00
--

可以加载，但是显示不了

--  作者：有点蓝
--  发布时间：2021/6/1 10:53:00
--
3个提示框都能弹出？窗口表绑定的是关联表还是子表？

--  作者：gv2000
--  发布时间：2021/6/2 8:16:00
--

谢谢。可以了，因为设计了其他代码影响