- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据合并 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70651)
-- 发布时间：2015/6/25 17:49:00
-- 数据合并
此主题相关图片如下：7d7g5dh@x~kd(i``ui{b9l.png
我想先判断公积金那一列中如果“-”则返回空值，还有如何通过编号来确定该数据已经添加不要重复再添加了 请各位老师帮忙修改一下，谢谢！
Dim dlg As New 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)
Dim dr As DataRow = DataTables("员工").AddNew
dr("编号") = sheet(1,1).Text
dr("姓名") = sheet(2,1).text
dr("出生年月") = sheet(2,3).text
dr("职位") = sheet(3,3).text
dr("月薪") = sheet(4,1).text
dr("公积金") = sheet(4,4).text
dr("入职时间") = sheet(3,1).text
dr("档案时间") = sheet(1,4).text
End If
-- 发布时间：2015/6/25 17:53:00
--
Dim dlg As New 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)
Dim drr As DataRow = DataTables("员工").find("编号=\'" & sheet(1,1).Text & "\'")
If drr Is Nothing Then
Dim dr As DataRow = DataTables("员工").AddNew
dr("编号") = sheet(1,1).Text
dr("姓名") = sheet(2,1).text
dr("出生年月") = sheet(2,3).text
dr("职位") = sheet(3,3).text
dr("月薪") = sheet(4,1).text
dr("公积金") = IIF(sheet(4,4).text="-",Nothing,sheet(4,4).text)
dr("入职时间") = sheet(3,1).text
dr("档案时间") = sheet(1,4).text
End If
End If
-- 发布时间：2015/6/26 7:58:00
--
谢谢老师！