[求助]导入改善 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

下面代码中有逻辑列和数值列会错误，怎么改善下呢？

Dim e =args(0)

Dim xlsin As String=args(1)

Dim dlg As New OpenFileDialog

dlg.Filter = "Excel文件|*.xls;*.xlsx"

Dim drhf As String=""

If dlg.ShowDialog =DialogResult.OK Then

Dim Book As New XLS.Book(dlg.FileName)

For Each sheet As xls.sheet In book.sheets

Dim hs As Integer=0

Dim hs2 As Integer=0

If xlsin=sheet.name Then

Dim t As Table = Tables(sheet.name)

t.ResumeRedraw()

t.StopRedraw()

For n As Integer =3 To Sheet.Rows.Count -1

Dim cnames As String="1=1"

For i As Integer = 0 To sheet.Cols.Count -1

'If sheet(2, i).text<>"摘要" Then

cnames &= " and " & sheet(2, i).text.replace("/", "") & "=" & "'" & Sheet(n,i).text & "'"

'End If

MessageBox.Show(cnames)

Dim drs As DataRow=DataTables(sheet.name).Find(cnames)

If drs Is Nothing Then

hs=hs+1

Dim r As DataRow= t.DataTable.AddNew()

For i As Integer = 0 To sheet.Cols.Count -1

Dim cname As String = sheet(2, i).text.replace("/", "")

If cname > "" AndAlso t.Cols.Contains(cname) Then

r(cname)= sheet(n, i).Text

End If

Else

hs2=hs2+1

End If

t.ResumeRedraw()

End If

drhf &="模块【" & sheet.name & "】本次共导入成功: " & hs & " 行;" & vbcrlf

drhf &="模块【" & sheet.name & "】本次共导入失败: " & hs2 & " 行;" & vbcrlf

End If

MessageBox.Show(drhf)

主题：[求助]导入改善