谢谢有点甜老师了，我想通过在导入前就判断下，是否已经导入过一次，代码修改如下：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 adnum 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("表A").Find("指令编号 = zl ")
If dr Is Nothing Then
Tables("表A").AddNew
For Each tdelem As object In tdelems
i = i+1
Tables("表A").Current(Cols(i)) = tdelems(i).Innertext
If i > 2 Then
Tables("表A").Current(Cols(i)) = tdelems(i+2).Innertext
Exit For
End If
Next
End If
End If
End If
Next
Next
Tables("表A").save
但是会报错，还得您指点下。
此主题相关图片如下：微信截图_20190402223529.png
加好友 
发短信
Post By：2018/12/4 8:52:00 [只看该作者]
