老师，下面的代码，从一个Excel表中提取数据到 一个 sqltable 表 tb 中。因为有 If d Is Nothing Then 语句，重复提取数据时候，应该不会执行 tb.addnew 。但是 确实执行addnew了。哪里有错呢？谢谢！
For i As Integer = start To end
Dim s1 As String = sheet(i,0).value
Dim s2 As String = sheet(i,1).value
s1 = s1.trim()
s2 = s2.trim()
Dim bh As String = s1 & "-" & s2 'fa piao号码
Dim d As DataRow = tb.DataTable.SQLFind("fa piao号码 = '" & bh & "'")
If d Is Nothing Then ' 如果没有录入过这个fa piao号码
Dim current As Row = tb.AddNew
current("fa piao号码") = bh
current("开piao日期") = sheet(i,6).value
current("金额") = sheet(i,14).value + sheet(i,16).value
current.DataRow.Save
End If
Next
[此贴子已经被作者于2020/10/30 23:10:09编辑过]
加好友 
发短信
Post By：2020/10/30 23:08:00 [显示全部帖子]
