|
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
Tables("证书编号表").StopRedraw()
Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","理论成绩","潜能成绩","实操成绩","工作业绩","总评成绩","评审结果","证书编号","备注"}
If dlg.ShowDialog =DialogResult.OK Then
For Each fl As String In dlg.FileNames
Dim Book As New XLS.Book(fl)
Dim sheet As XLS.Sheet = book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count -1
Dim sfzhm As String = sheet(n,4).Text
Dim jddj As String = sheet(n,6).Text
Dim jdpc As String = sheet(n,8).Text
Dim dr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & sfzhm & "' And 鉴定等级= '" & jddj & "' And 鉴定批次= '" & jdpc & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("证书编号表").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
If DataTables("证书编号表").DataCols(nms(m)).IsNumeric Then
dr(nms(m)) = val(Sheet(n,m).Value)
Else
dr(nms(m)) = Sheet(n,m).Value
End If
Next
Next
Next
End If
Tables("证书编号表").ResumeRedraw()
|
加好友 
发短信
Post By：2015/1/22 21:26:00 [只看该作者]
Post By：2015/1/22 21:38:00 [只看该作者]
