Dim t As Table = Tables("基本信息表")
Dim newcount As Integer = 0 '新增行为0
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
If MessageBox.Show("确定要导入这个文件?" & dlg.FileName,"提示!",MessageBoxButtons.OKCancel) = DialogResult.OK
t.StopRedraw() '停止绘制表
Dim Book As New XLS.Book(dlg.FileName) '定义一个新的工作本,含ygxx的所有文件
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用第一个工作表
For n As Integer = 1 To sheet.Rows.Count - 1 '遍历第1个工作表的第2至最后一行
If sheet(n,0).Text.trim() > "" '姓名列有值'
Dim dr As DataRow = DataTables("基本信息表").AddNew '在基本信息表中添加行
newcount += 1 '新增行累加记数
dr("姓名") = sheet(n,0).Text '所有行n,第1列填写
dr("性别") = sheet(n,1).text '所有行n,第2列填写
dr("身份证号") = sheet(n,2).text '所有行n,第3列填写
dr("电话号码") = sheet(n,3).text '所有行n,第4列填写
dr("地址") = sheet(n,4).text '所有行n,第5列填写
dr("银行卡号") = sheet(n,5).text '所有行n,第6列填写
dr("备注") = sheet(n,6).text '所有行n,第7列填写
dr("基数") = sheet(n,7).text '所有行n,第8列填写
dr("比例") = sheet(n,8).text '所有行n,第9列填写
dr("金额") = sheet(n,9).text '所有行n,第10列填写
End If
Next
t.ResumeRedraw() '恢复绘制表
MessageBox.Show("本次成功合并了" & newcount & "条记录" ,"提示!") '提示
End If
End If
加好友 
发短信
Post By：2020/2/29 10:01:00 [只看该作者]
