版主您好，我写的代码是想把“XLS”表中数据导入系统表中更新“账号","客户号","户名","账户性质","开户日期","存款余额","年日均余额”等列，"XLS"为最新数据，怎样写代码导入最新数据列，同时删除系统表中有而"XLS"没有“账号”列的行。谢谢。If msgbox("导入更新可以导入客户基础数据和最新的存款余额和年日均余额,是否进行?",65,"提示") = 1 Then
Dim Book As New XLS.Book("D:\khdaxt\drgx\dgdrgx.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("对公客户明细").StopRedraw()
Dim nms() As String = {"账号","客户号","户名","账户性质","开户日期","存款余额","年日均余额"}
For n As Integer = 0 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim dr As DataRow = DataTables("对公客户明细").Find("账号 = '" & bh & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("对公客户明细").AddNew()
End If
For m As Integer = 0 To nms.Length -1
dr(nms(m)) = trim(Sheet(n,m).Value)
Next
Next
Tables("对公客户明细").ResumeRedraw()
msgbox("客户数据导入更新完毕!",64,"提示")
End If
加好友 
发短信
Post By：2015/3/1 20:10:00 [显示全部帖子]
