主题：同步外部数据表

Dim Ftb As WinForm.Form = Forms("系统数据同步")
Dim wjlj As String = Ftb.Controls("TextBox-wjlj").Value
Dim hblm As String = Ftb.Controls("TextBox-hblm").Value
Dim Book As New XLS.Book(wjlj)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim tb As Table
Dim dtb As DataTable
Dim y As String
Dim zhuj As String

If Ftb.Controls("RadioButton-yh-ky").Checked = True Then
tb = Tables("Yehu_ke")
dtb = DataTables("Yehu_ke")
y = 0
ZhuJ = "序号"
End If

If Ftb.Controls("RadioButton-yh-hy").Checked = True Then
tb = Tables("Yehu_huo")
dtb = DataTables("Yehu_huo")
y = 5
ZhuJ = "许可证号"
End If

tb.StopRedraw()
Dim nms() As String = hblm.Split(",")
Dim dels As New List(of String)
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,y).Text
dels.Add(bh)
Dim dr As DataRow = dtb.Find(" " & ZhuJ & " = '" & bh & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = dtb.AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
Next

For del As Integer = dtb.DataRows.Count - 1 To 0
If dels.Contains(dtb.DataRows(del)(ZhuJ)) = False Then
dtb.DataRows(del).Delete()
End If
Next

tb.ResumeRedraw()