我给一个导入功能设置了匹配表头的功能。然后写了如下导入代码:
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
If bh = "" Then
Exit For
End If
Dim rr As DataRow = DataTables("rh_ytoex").SQLFind("运单号码 = '" & bh & "'")
Dim dr As DataRow
If rr Is Nothing Then
dr = tb.DataTable.AddNew()
End If
Dim m As Integer
For m = 0 To dh.Count - 1
If Sheet(n,dh(m)).Value = "" Then
Continue For
Else
dr(mc(m)) = Sheet(n,dh(m)).Value
End If
Next
next
问题来了,要导入个几万代码,那时间长的吓人!! 若用了fox提供的高速导入或高速合并,我设置的哪些匹配表头功能就没有了。。请问有什么好办法么?