以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  currentchange刷新关联表不能调整宽度？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190294)
--  作者：lur320
--  发布时间：2024/1/29 13:34:00
--  currentchange刷新关联表不能调整宽度？

    Dim zld As String = Tables("指令单").current("指令单号")
    If zld IsNot Nothing Then
        DataTables("指令单物品表").Loadfilter = "指令单号=\'" & zld & "\'"
    Else
        DataTables("指令单物品表").Loadfilter = "指令单号 is nothing"
    End If
    
    DataTables("指令单物品表").Load(False)
    
    Tables("指令单.指令单物品表").AutoSizeCols

最后一段代码，关联表并没有调整列宽度。但是单独在命令窗口是可以调整的，为啥？
--  作者：有点蓝
--  发布时间：2024/1/29 13:51:00
--  
代码在哪个表的事件？
--  作者：lur320
--  发布时间：2024/1/29 14:45:00
--  
 代码在父表的currentchange里面。即Tables("指令单.指令单物品表")这个黄色的表里。关联表是单向的
--  作者：有点蓝
--  发布时间：2024/1/29 15:11:00
--  
试试把下面的代码放到"指令单物品表"的afterload事件里
Tables("指令单.指令单物品表").AutoSizeCols