With wb.AddTable("", "Table1")
.Alternate = 3
.RowHead = 1
.ColWidth = "12px"
Dim nms() As String = {"", "责任人", "是否完成", "完成时间"}
.Head.AddRow(nms)
Dim cnt As Integer
For Each r As DataRow In DataTables("事项进度").Select("主键编号 =" & name1)
cnt = cnt + 1
With .Body.AddRow(cnt, r("录入人员"), r("是否完成"))
.AddCell(Format(r("录入时间"), "yyyy年MM月dd日"))
End With
Next
End With
此主题相关图片如下:2023-05-15_150533.jpg
1、我想点那个表格,下边自动会显示出r行的,完成进度列的内容。
2、是否完成列和完成时间列如图显示。