'''
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)
Dim nms() As String
nms = new String() {"序号","姓名","性别","民族","学历及专业","行政职务","出生年月","出生地","参加工作时间","专业技术职务资格_名称","专业技术职务资格_取得时间","专业技术职务资格_初聘时间","专业技术职务资格_现岗位等级","任教学科","备注（财政停薪、离岗待退、村小等在此注明）","身份证号码","手机号码"}
messagebox.show(Sheet.Rows.Count -1)
For n As Integer = 6 To Sheet.Rows.Count -1
messagebox.show(n)
Dim dr As DataRow
dr = DataTables("专技人员").Find("身份证号码 = '" & trim(sheet(n,16).text) & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("专技人员").AddNew
End If
For c As Integer = 0 To nms.Length - 1 '逐列设置和填入内容
dr(nms(c)) = sheet(n,c).text
Next
Next
End If
请问老师，导入EXCEL表，表中有记录，我是想从第7行开始导数据，但 messagebox.show(Sheet.Rows.Count -1) 显示为-1也就是没有记录，但明明表中有记录，问题出在哪里呢
加好友 
发短信
Post By：2019/10/25 20:48:00 [只看该作者]
