主题：[求助] 行号列宽

 Dim xx As String
        For Each c As Col In Tables("主窗口_tab_流水账查询").Cols
            cmd.C  ommandText = "s  elect 流水账查询表列宽度  from {列宽}  WHERE 流水账查询表列名称 ='" & c.Name & "'"
                      Dim names() As String = {"日期", "凭证号", "摘要", "科目表_一级", "科目表_二级", "科目表_三级", "科目表_四级", "科目表_五级", "科目表_借方", "科目表_贷方", "对方科目_一级", "对方科目_二级", "对方科目_三级", "对方科目_四级", "对方科目_五级", "对方科目_借方", "对方科目_贷方"}
            For Each na As String In names
                If c.Name = na Then
                    If xx = "" Then
                        xx = na & "|" & c  md.ExecuteScalar
                    Else
                        xx = xx & "|" & na & "|" & c  md.ExecuteScalar
                    End If
                End If
            Next
        Next
        Tables("主窗口_tab_流水账查询").SetColVisibleWidth(xx)
       
          cmd.C  ommandText = "s  elect 流水账查询表列宽度 from {列宽}WHERE 流水账查询表列名称 ='列号'"  '行号列宽度

    Tables("主窗口_tab_流水账查询").Grid.cols(0).Width = c  md.ExecuteScalar '列号宽度  在这里显示后又回到自动列宽度，要怎么改才能保持设定列宽度

 

 

 

没看懂，截图说明一下

此主题相关图片如下：003.png

 

 Tables("主窗口_tab_流水账查询").Grid.cols(0).Width = c  md.ExecuteScalar '列号宽度  在这里显示后又回到自动列宽度，要怎么改才能保持设定列宽度

无法保持的。这种设置只能是临时的。每次打开项目肯定都要设置一次。另外如果这个表格重新加载数据、使用fill，DataSource绑定表格的，肯定也要重新设置一次

  我保存到外部数据，可以提取到啊，赋值后又回到自动列宽

 

如果赋值后有自己改了，应该是有其它代码影响了

是目录树的这段代码触发的    Tables("主窗口_tab_流水账查询").F   ilter = Filter 

 

筛选跟列宽度有关系吗，如果有那要怎么才能不触发

筛选后重新设置列宽