Dim nms8() As String = {"序号","风险点_名称","作业步骤或检查项目_名称","危险源或检查标准","管控措施_内容","责任单位","检查结果_符合性","检查结果_不符合描述","备注"}
For c As Integer = 0 To nms8.length - 1
rt8.Cells(0,c).Text = tbl8.Cols(nms8(c)).Name
rt8.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
'rt8.Cols(c).Width = tbl8.Cols(c).PrintWidth '根据原表格确定列宽
rt8.Cols(0).Width = 30 '设置各列宽度
rt8.Cols(1).Width = 30
rt8.Cols(2).Width = 40
rt8.Cols(3).Width = 100
rt8.Cols(4).Width = 30
rt8.Cols(5).Width = 30
rt8.Cols(6).Width = 50
rt8.Cols(7).Width = 30
For r As Integer = 0 To Rows8.Count -1
If c=0 Then
rt8.Cells(r + 1, c).Text = r+1
ElseIf tbl8.Cols(nms8(c)).IsBoolean
If rows8(r)(tbl8.Cols(nms8(c)).Name) = True
rt8.Cells(r + 1, c).Text = "√"
End If
Else
rt8.Cells(r + 1, c).Text = rows8(r)(tbl8.Cols(nms8(c)).Name)
End If
Next
Next
加好友 
发短信
Post By：2020/3/30 9:40:00 [显示全部帖子]
