各位老师，我现在增加了新的功能，在导入时识别重复值，如果是重复的不再录入，但总是报错，调试了下，问题就出现在：Dim zl As String = tdelems(0).Innertext这句代码上，提示：“0”的值对于“index”无效。“index”应介于 0 和 -1 之间。下面附一下全部代码
参数名: index
Dim web As New System.Windows.Forms.WebBrowser()
Dim Cols() As String = { "指令编号","修正案号","标题","生效日期"}
Dim dr As DataRow
For pg As Integer = e.Form.Controls("textbox1").Value To e.Form.Controls("textbox2").Value
'Dim pg As Integer = 1
Dim wz As String = "http://www.caacaad.org.cn/index.php?a=2&t=1&page= "& pg & "&"
web.Navigate( wz )
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementById("table1").GetElementsByTagName("tr")
Dim m As Integer = 0
Dim r As Integer = 0
For Each elem As object In elems
r = r + 1
If r = elems.count Then
Exit For
End If
Dim i As Integer = -1
m = m + 1
Dim tdelems As object = elem.GetElementsByTagName("td")
Dim zl As String = tdelems(0).Innertext
If m > 1 Then '因为网页的表格有标题,如果不判断,就会增加出一个空行
If tdelems(0).Innertext Like "*A320*" Or tdelems(0).Innertext Like "*A330*" Or tdelems(0).Innertext Like "*MULT*" Or tdelems(0).Innertext Like "*B737*" Then
dr = DataTables("AD监控").Find("指令编号 ='"& zl &"'")
If dr Is Nothing Then
Tables("AD监控").AddNew
For Each tdelem As object In tdelems
i = i+1
If i < 3 Then
Tables("AD监控").Current(Cols(i)) = tdelems(i).Innertext
ElseIf i = 3 Then
Tables("AD监控").Current(Cols(i)) = tdelems(5).Innertext
Exit For
End If
Next
End If
End If
End If
Next
Next
Tables("AD监控").save
加好友 
发短信
Post By：2019/3/9 15:30:00 [显示全部帖子]
此主题相关图片如下：捕获.png
