只需要设置前两列的列宽，代码如下，但是实际无作用，请问老师，这是代码哪里出问题了？
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Dim t As String = Date.Today.Year & "年" & Date.Today.Month & "月"
wb.AddForm("", "form1", "shebeicydjb.htm")
With wb.AddTable("", "Table1")
.RowHead = 1
.ColWidth = "15px,100px" '设置列宽
.CreateFromDataTable(DataTables("设备点检明细"), False, "设备编号 = '" & e.Cookies("shebeibianhao") & "' and 年月 = '" & t & "'", "序号", "序号", "项目", "点检结果_1", "点检结果_2", "点检结果_3", "点检结果_4", "点检结果_5", "点检结果_6", "点检结果_7", "点检结果_8", "点检结果_9", "点检结果_10", "点检结果_11", "点检结果_12", "点检结果_13", "点检结果_14", "点检结果_15", "点检结果_16", "点检结果_17", "点检结果_18", "点检结果_19", "点检结果_20", "点检结果_21", "点检结果_22", "点检结果_23", "点检结果_24", "点检结果_25", "点检结果_26", "点检结果_27", "点检结果_28", "点检结果_29", "点检结果_30")
End With
With wb.AddButtonGroup("form1", "btg3", False)
.Add("btn1", "首页", "", "shouye.htm").Kind = 1 '单击这个按钮可以打开设备管理页面
.Add("btn2", "保养", "", "shebeiby.htm")
.Add("btn3", "报修", "", "shebeibx.htm").Kind = 2
.Add("btn4", "点检", "", "shebeidj.htm")
End With
e.WriteString(wb.Build)
加好友 
发短信
Post By：2024/9/19 14:52:00 [显示全部帖子]
