以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  EXCEL表中有数据记录，但导入时显示无  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142406)

--  作者：刘林 --  发布时间：2019/10/25 20:48:00 --  EXCEL表中有数据记录，但导入时显示无 \'\'\' 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也就是没有记录，但明明表中有记录，问题出在哪里呢

--  作者：刘林 --  发布时间：2019/10/25 21:40:00 --   老师，我发现了个问题，有的wps表格导入就会出问题，而同样表的内容剪到excel中就可以，这可怎么办？

--  作者：有点蓝 --  发布时间：2019/10/25 21:44:00 --   这种没有办法。wps本身和execl就有兼容性问题。而Foxtable使用的是execl的组件。