以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列宽设置问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180141)
--  作者：18920118515
--  发布时间：2022/9/30 11:04:00
--  列宽设置问题
老师，以下代码，我如何实现让所有包括“利润”的列，列宽为10，而不是自动设置所有列宽

If e.Form.Controls("DateTimePicker3").value = Nothing Or e.Form.Controls("DateTimePicker4").value = Nothing Then
    MessageBox.Show("请先选择查询的起止时间 !")
    e.Cancel = True
Else
    StatusBar.Message1= "正在计算数据,请稍等......"
    StatusBar.Refresh() \'刷新状态栏
    Dim DA1 As Date = e.Form.Controls("DateTimePicker3").VALUE
    Dim DA2 As Date = e.Form.Controls("DateTimePicker4").VALUE
    
    Dim bd1 As New CrossTableBuilder("统计表2",DataTables("商品车销售基础表"))
    bd1.Filter ="[开票日期] >= #" & DA1 & "# And [开票日期] <= #" & DA2 & "# and [线索来源] = \'XS\'"
    bd1.HGroups.AddDef("岗位") \'添加客户列用于水平分组
    bd1.VGroups.AddDef("贷款金融公司") \'添加产品列用于垂直分组
    bd1.Totals.AddDef("金融数量") \'添加数量列用于统计
    bd1.Totals.AddDef("贷款利润","金融利润") \'添加数量列用于统计
    bd1.VerticalTotal= True \'垂直汇总
    bd1.HorizontalTotal = True \'水平汇总
    bd1.Decimals = 2
    
    Tables("查询 金融查询窗口_Table3").DataSource = bd1.builddatasource
    For Each dc As DataCol In DataTables("查询 金融查询窗口_Table3").datacols
        If dc.caption Like "*利润*" Then
            dc.SetFormat("#,###.00")
        End If
    Next
    
    Tables("查询 金融查询窗口_Table3").AutoSizeCols() \'自动设置所有列的宽度
    
End If
StatusBar.Message1= "就绪"
StatusBar.Message3 = Date.Today & "  " &  User.Name
StatusBar.Refresh() \'刷新状态栏


老师，以上代码，我如何实现让所有包括“利润”的列，列宽为10，而不是自动设置所有列宽
--  作者：有点蓝
--  发布时间：2022/9/30 11:20:00
--  
http://www.foxtable.com/webhelp/topics/1775.htm

dim s as string = ""
for each c as col in Tables("查询 金融查询窗口_Table3").cols
dim m as integer = IIF(c.name like "*利润*"),10,-1)
s = s & "|" & c.name & "|" & m
next
s = s.trim("|")
Tables("查询 金融查询窗口_Table3").SetColVisibleWidth(s)
--  作者：18920118515
--  发布时间：2022/9/30 11:28:00
--  
谢谢老师