- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 行号列宽 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180293)
-- 发布时间：2022/10/12 17:14:00
-- [求助] 行号列宽
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 \'列号宽度 在这里显示后又回到自动列宽度，要怎么改才能保持设定列宽度
-- 发布时间：2022/10/12 17:23:00
--
没看懂，截图说明一下
-- 发布时间：2022/10/12 17:26:00
--
没看懂，截图说明一下
此主题相关图片如下：003.png
Tables("主窗口_tab_流水账查询").Grid.cols(0).Width = c md.ExecuteScalar \'列号宽度 在这里显示后又回到自动列宽度，要怎么改才能保持设定列宽度
-- 发布时间：2022/10/12 17:30:00
--
无法保持的。这种设置只能是临时的。每次打开项目肯定都要设置一次。另外如果这个表格重新加载数据、使用fill，DataSource绑定表格的，肯定也要重新设置一次
-- 发布时间：2022/10/12 17:32:00
--
无法保持的。这种设置只能是临时的。每次打开项目肯定都要设置一次。另外如果这个表格重新加载数据、使用fill，DataSource绑定表格的，肯定也要重新设置一次
我保存到外部数据，可以提取到啊，赋值后又回到自动列宽
-- 发布时间：2022/10/12 17:40:00
--
如果赋值后有自己改了，应该是有其它代码影响了
-- 发布时间：2022/10/14 10:25:00
--
如果赋值后有自己改了，应该是有其它代码影响了
是目录树的这段代码触发的 Tables("主窗口_tab_流水账查询").F ilter = Filter
筛选跟列宽度有关系吗，如果有那要怎么才能不触发
-- 发布时间：2022/10/14 10:29:00
--
筛选后重新设置列宽