老师，以下代码，我如何实现让所有包括“利润”的列，列宽为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 ="[开piao日期] >= #" & DA1 & "# And [开piao日期] <= #" & 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，而不是自动设置所有列宽
加好友 
发短信
Post By：2022/9/30 11:04:00 [只看该作者]
