主题：求助

老师好：

 

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

 

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

显示有什么问题？按眼睛不好，看不清楚图

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

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "生产单号 = '"& e.Table.Current("编号") &"'"
    If  DataTables("生产工序表").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过

可以加载，但是显示不了

 

3个提示框都能弹出？窗口表绑定的是关联表还是子表？

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