With wb.AddTable("","Table1")
.RowHead = 1
.ColWidth = "120px,,120px,,120px,,120px,,72px,,120px"
.Highlight = 1 '关闭高亮显示
.Alternate = 2 '每两行显示一个不同背景颜色的行
.Head.AddRow("供应商","状态","异常类型","异常日期","异常原因")
For i As Integer = 0 To dt.DataRows.count - 1
Dim r As DataRow = dt.DataRows(i)
With .Body.AddRow(r("供应商"),r("状态"),r("异常类型"),r("异常日期"),r("异常原因"))
.Primarykey = r("ID")
End With
Next
.ActiveSheet = "menu" '指定菜单
With wb.AddActionSheet("","menu") '设计菜单
.Add("mnudAdd", "异常修改").Attribute = ""
End With
End With
设置列宽不生效，请指教！谢谢！！
加好友 
发短信
Post By：2018/4/26 14:47:00 [显示全部帖子]
