Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
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 r As Row = Tables("变更登记申请表").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
End If
Tables("变更登记申请表").ResumeRedraw()
DataTables("变更登记申请表").Save
'MessageBox.Show("导入完成,共导入" & Sheet.Rows.Count & "条记录")
'
请问代码的最后一行有什么问题？谢谢！！
加好友 
发短信
Post By：2019/8/20 18:00:00 [显示全部帖子]
