此主题相关图片如下：excel(单位表).png
求助以下问题：1.有一个Table(单位表)，内有5行数据2.有一个Excel表（单位表），字段与Table(单位表)一致，内有16行数据。
3.现需要从Excel表（单位表）导入数据到Table(单位表)中，实现覆盖导入。
即：1.若Table(单位表)与Excel（单位表）有相同 “单位代码”的行，用Excel数据覆盖Table数据。
2.若没有，则在Table(单位表)中增加。
以下自己写的代码，不能实现上述功能，只是将Excel表的数据全部追加到Table中，不知道哪里出了问题
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("单位表").StopRedraw()
Dim nms() As String = {"单位代码","单位名称","单位性质","单位类型","信用代码","创建日期","负责人","办公电话","电子邮箱","邮政编码","单位地址"}
For n As Integer = 1 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)) = Sheet(n,m).Value
Next
Next
Tables("单位表").ResumeRedraw()
此主题相关图片如下：tables(单位表).png
End If
加好友 
发短信
Post By：2021/12/30 19:21:00 [只看该作者]
