For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim dr As DataRow = DataTables("测试1").Find("编号 = '" & bh &"'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("测试1").AddNew()
End If
dr("编号") = Sheet(n,0).Value
dim s as string = Sheet(n,1).Value
for i as integer = 0 to s.length - 1
if Char.IsDigit(s(i)) then continue for
dr("标签") = s.substring(i)
exit for
next
Next