Dim Book As New XLS.Book("C:\Users\wangj\Desktop\设备设施请修确认单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("设备设施请修").StopRedraw()
Dim nms() As String = {"审批编号","标题","审批状态","审批结果","发起时间","完成时间","耗时(时:分:秒)","发起人工号","发起人UserID","发起人姓名","发起人部门","历史审批人姓名","审批记录","当前处理人姓名","申请类别","设备名称及编号","申请日期","完成日期","所属部门","维修片区","故障描述及解决办法","工时核算","维修人员","个人工时","工时单价元","工时费用","材料核算","配件名称","规格型号","数量","单价元","合计金额","是否影响生产","影响生产时间(小时)"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim dr As DataRow = DataTables("设备设施请修").Find("审批编号 = '" & bh & "'")
If dr Is Nothing Then '如果不存在同审批编号的设备设施请修确认单
dr = DataTables("设备设施请修").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("设备设施请修").ResumeRedraw()
点击执行时，提示如下错误：
此主题相关图片如下：微信截图_20191029171328.png
请问是哪里有问题？如何修改？谢谢！
加好友 
发短信
Post By：2019/10/29 13:16:00 [显示全部帖子]
