- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为什么不能导入数据？求版主指点？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75990)
-- 发布时间：2015/10/19 15:47:00
-- 为什么不能导入数据？求版主指点？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:鉴定管理系统v2.rar |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:职业技能鉴定报名登记表.xls |
只能导入5行空值，这是什么原因？是按钮（《导入报名Excel》）代码有问题吗？麻烦版主给看看，谢谢先！！！！！！
-- 发布时间：2015/10/19 16:06:00
--
你隐藏了表
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets("报名登记表")
Tables("报名登记表").ResumeRedraw()
Tables("报名登记表").StopRedraw()
\'systemready = False
Dim nms As New Dictionary(Of String, Integer)
Dim dic As new Dictionary(Of DataRow, Integer)
Dim ls As new List(Of Integer)
For c As Integer = 0 To sheet.Cols.Count - 1
If DataTables("报名登记表").DataCols.Contains(sheet(0,c).Text) Then
nms.Add(sheet(0,c).Text, c)
End If
Next
For n As Integer = 1 To Sheet.Rows.Count -1
-- 发布时间：2015/10/19 16:22:00
--
原来代码上有这些错！谢谢！
现在能导入数据了，但有新问题：EXCEL表中只有20人，但导入后会有211行，除20行外，其它的都是空白，且有几列（“参加工作时间”、“现工种工作时间”、“原技术资格等级”、“原等级取得时间”）是空值，烦请版主再给看看！谢谢！
-- 发布时间：2015/10/19 16:57:00
--
Dim Result As DialogResult
Result = MessageBox.Show("确定要导入吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets("报名登记表")
Tables("报名登记表").ResumeRedraw()
Tables("报名登记表").StopRedraw()
\'systemready = False
Dim nms As New Dictionary(Of String, Integer)
Dim dic As new Dictionary(Of DataRow, Integer)
Dim ls As new List(Of Integer)
For c As Integer = 0 To sheet.Cols.Count - 1
If DataTables("报名登记表").DataCols.Contains(sheet(0,c).Text.replace(" ", "")) Then
nms.Add(sheet(0,c).Text.replace(" ", ""), c)
End If
Next
For n As Integer = 1 To Sheet.Rows.Count -1
Dim sfzhm As String = sheet(n,nms("身份证号码")).Text
Dim jdpc As String = sheet(n, nms("鉴定批次")).Text
If sfzhm = "" Then Continue For
Dim dr As DataRow = DataTables("报名登记表").Find("身份证号码 = \'" & sfzhm & "\' And 鉴定批次 = \'" & jdpc & "\'")
If dr Is Nothing Then
ls.add(n)
Else
dic.Add(dr, n)
End If
Next
For Each key As DataRow In dic.Keys
For Each m As String In nms.keys
If DataTables("报名登记表").DataCols(m).IsBoolean Then
If Sheet(dic(key),nms(m)).Text = "" OrElse Sheet(dic(key),nms(m)).Text = "False" OrElse Sheet(dic(key),nms(m)).Value = 0 Then
key(m) = False
Else
key(m) = True
End If
Else If DataTables("报名登记表").DataCols(m).Expression > "" Then
\'表达式列
Else If DataTables("报名登记表").DataCols(m).IsNumeric Then
key(m) = val(Sheet(dic(key),nms(m)).Value)
Else If DataTables("报名登记表").DataCols(m).IsDate Then
Dim d As Date
If Date.TryParse(Sheet(dic(key),nms(m)).Value, d)
key(m) = d
End If
Else
key(m) = Sheet(dic(key),nms(m)).Value
End If
Next
Next
For Each l As Integer In ls
Dim ndr As DataRow = DataTables("报名登记表").AddNew
For Each m As String In nms.keys
If DataTables("报名登记表").DataCols(m).IsBoolean Then
If Sheet(l,nms(m)).Text = "" OrElse Sheet(l,nms(m)).Text = "False" OrElse Sheet(l,nms(m)).Value = 0 Then
ndr (m) = False
Else
ndr (m) = True
End If
Else If DataTables("报名登记表").DataCols(m).Expression > "" Then
\'表达式列
Else If DataTables("报名登记表").DataCols(m).IsNumeric Then
ndr (m) = val(Sheet(l,nms(m)).Value)
Else If DataTables("报名登记表").DataCols(m).IsDate Then
Dim d As Date
If Date.TryParse(Sheet(l,nms(m)).Value, d)
ndr (m) = d
End If
Else
ndr (m) = Sheet(l,nms(m)).Value
End If
Next
Next
Tables("报名登记表").ResumeRedraw()
systemready = True
End If
End If
-- 发布时间：2015/10/20 12:53:00
--
不好意思！出了趟小差，刚才才看到，谢谢版主！让您费心了！现在问题解决了，但是导入数据的速度很慢，200多行的数据都要10来秒，我试了了导2000行左右的，要1分多钟，版主能再费心帮忙解决一下吗？
-- 发布时间：2015/10/20 14:11:00
--
这句代码加上啊
systemready = False
-- 发布时间：2015/10/20 14:57:00
--
谢谢版主！没发现那句代码是灰的没起作用。
-- 发布时间：2015/10/20 15:04:00
--
另有一个关于“复选组合框”的问题，就是该控件能否象EXCEL表里的筛选那样，比如：某列是一个很多单位的列，勾选其中的部分单位，这时表只显示被勾选的单位的行，如我再加勾选另外几个单位，只要加勾这些单位就可？
-- 发布时间：2015/10/20 15:06:00
--
现在“复选组合框”我只能做到：勾选完确定后，再要选别的就看不到选项，一定得点“清除”按钮
-- 发布时间：2015/10/20 15:09:00
--
给你写过代码了啊，看你以前的帖子。