报错是因为你路径没有写对导致的。我用下面代码测试没问题
'Dim db4 As WinForm.DropDownBox = e.Form.Controls("DropBox4")
'Dim db5 As WinForm.DropDownBox = e.Form.Controls("DropBox5")
Dim dzml4 As String = "C:\Users\dv rrxaI600 007\Downloads\signlog\SignLog\20170606" 'db4.text
'Dim dzml5 As String = db5.text
If dzml4 IsNot Nothing Then
Tables("表A").StopRedraw
For Each f As String In FileSys.GetFiles(dzml4)
If f.EndsWith("_verifysign.log") Then
If DataTables("表B").Find("文件名 = '" & f & "'" ) Is Nothing Then
Dim txt As String = FileSys.ReadAllText(f, Encoding.Default)
Dim idx As Integer = txt.IndexOf("</business>")
Dim s1 As String = txt.SubString(0, idx+11)
Dim s2 As String = txt.SubString(idx+12)
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(s1)
Dim ndList = xmlDoc.GetElementsByTagName("input")
Dim kprq As String
Dim fpdm As String
Dim fphm As String
Dim ghdwmc As String
Dim ghdwdzdh As String
Dim ghdwsbh As String
Dim ghdwyhzh As String
Dim hjje As String
Dim hjse As String
Dim jshj As String
Dim bz As String
Dim fpzt As String
For i As Integer = 0 To ndList.count - 1
If ndList(i).Item("kprq") IsNot Nothing Then kprq = ndList(i).Item("kprq").InnerText
If ndList(i).Item("fpdm") IsNot Nothing Then fpdm = ndList(i).Item("fpdm").InnerText
If ndList(i).Item("fphm") IsNot Nothing Then fphm = ndList(i).Item("fphm").InnerText
If ndList(i).Item("ghdwmc") IsNot Nothing Then ghdwmc = ndList(i).Item("ghdwmc").InnerText
If ndList(i).Item("ghdwdzdh") IsNot Nothing Then ghdwdzdh = ndList(i).Item("ghdwdzdh").InnerText
If ndList(i).Item("ghdwsbh") IsNot Nothing Then ghdwsbh = ndList(i).Item("ghdwsbh").InnerText
If ndList(i).Item("ghdwyhzh") IsNot Nothing Then ghdwyhzh = ndList(i).Item("ghdwyhzh").InnerText
If ndList(i).Item("hjje") IsNot Nothing Then hjje = ndList(i).Item("hjje").InnerText
If ndList(i).Item("hjse") IsNot Nothing Then hjse = ndList(i).Item("hjse").InnerText
If ndList(i).Item("jshj") IsNot Nothing Then jshj = ndList(i).Item("jshj").InnerText
If ndList(i).Item("bz") IsNot Nothing Then bz = ndList(i).Item("bz").InnerText
If ndList(i).Item("fpzt") IsNot Nothing Then fpzt = ndList(i).Item("fpzt").InnerText
Next
If fphm <> Nothing Then
Dim ndr As DataRow = DataTables("表b").addnew
ndr("开piao日期") = kprq.SubString(0,4) + "-" + kprq.SubString(4,2) + "-" + kprq.SubString(6,2)
ndr("fa piao代码") = fpdm
ndr("fa piao号码") = fphm
ndr("客户名称") =ghdwmc
ndr("地址电话") =ghdwdzdh
ndr("纳税人识别号") = ghdwsbh
ndr("开户银行及账号") = ghdwyhzh
ndr("合计金额") = hjje
ndr("合计税额") = hjse
ndr("价税合计") = jshj
ndr("备注") = bz
ndr("fa piao状态") = fpzt
ndr("文件名") = f
ndList = xmlDoc.GetElementsByTagName("fyxm")(0).ChildNodes
For i As Integer = 0 To ndList.count - 1
Dim spmc As String = ndList(i).Item("spmc").InnerText
Dim ggxh As String = ndList(i).Item("ggxh").InnerText
Dim sl As String = ndList(i).Item("sl").InnerText
Dim se As String = ndList(i).Item("se").InnerText
Dim dw As String = ndList(i).Item("dw").InnerText
Dim spsl As String = ndList(i).Item("spsl").InnerText
Dim dj As String = ndList(i).Item("dj").InnerText
Dim je As String = ndList(i).Item("je").InnerText
Dim r As Row = Tables("表A").AddNew
r("fa piao代码") = fpdm
r("fa piao号码") = fphm
r("客户名称") = ghdwmc
r("货物或服务名称") = spmc
r("规格") = ggxh
r("单位") = dw
r("数量") = val(spsl)
r("单价") = dj
r("税率") = sl
r("税额") = se
r("金额") = je
r("fa piao状态") = fpzt
Next
End If
End If
End If
Next
Tables("表A").ResumeRedraw
DataTables("表b").DeleteFor("fa piao状态 = '2'")
For Each s As String In DataTables("表A").GetValues("fa piao号码", "fa piao状态 = '3'")
DataTables("表A").DeleteFor("fa piao号码 = '" & s & "' and fa piao状态 = '0'")
Next
For Each s1 As String In DataTables("表b").GetValues("fa piao号码", "fa piao状态 = '3'")
DataTables("表b").DeleteFor("fa piao号码 = '" & s1 & "' and fa piao状态 = '0'")
Next
End If
加好友 
发短信
Post By：2019/3/13 17:06:00 [只看该作者]
