以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  主表和明细表 明细表不显示数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88430)

--  作者:mayazql
--  发布时间:2016/8/2 20:29:00
--  主表和明细表 明细表不显示数据
如下图,窗体中有一个主表,有一个关联的子表,现在发现有时关联的子表不显示数据,要把程序关掉重现打开才可以


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

麻烦帮忙看下什么原因。谢谢!

--  作者:mayazql
--  发布时间:2016/8/2 20:53:00
--  
解决了,在主表的currentchanged 的事件加入下面的代码:

If Forms("入库单主窗口").Opened = True Then
    
    Dim r As Row = Tables("insmain").Current
    Dim fl As String = "入库单号 = \'"  & r("入库单号") & "\'"
    r.Load() \'加载父行
    LockBaseMainForm() \'锁定主窗口
    DataTables("inssub").StopRedraw \'停止绘制订单明细
    DataTables("inssub").RemoveFor(fl) \'移除当前订单的订单明细
    DataTables("inssub").Appendload(fl) \'追载当前订单的订单明细
    DataTables("inssub").ResumeRedraw \'恢复绘制订单明细
    UnLockBaseMainForm() \'解锁主窗口
    
End If

多看帮助