[求助]合并外部excel，自动打开方式，并合并某列数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

“计时工资库” 表中，有姓名，相当的月份、年份，现在想做一个按键，从外面的excel中导入对应年份、月份的公积金进来，

合并代码我会，但是筛选和过滤的代码不知道怎么修改，麻烦指导下：

For Each dr As Row In Tables("计时工资库").rows

Dim drr As DataRow

Dim Filter As String '定义一个新筛选数

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim count As Integer = DataTables("计时工资库").datarows.count

Dim mg As New Merger

mg.SourcePath = dlg.FileName

mg.Format = "excel"

mg.SourceTableName = "sheet1$"

mg.DataTableName = "计时工资库"

Filter = "[年份] = '" & dr("年份
图片点击可在新窗口打开查看

此主题相关图片如下：公积金.png

") & "' and [月份] = '" & dr("月份") & "' and [姓名] = '" & dr("姓名") & "'"

drr = DataTables("sheet1").Find(Filter)

drr = DataTables("sheet").Find(Filter)

If drr IsNot Nothing Then '如果找到

dr("公积金") = drr("公积金")

Else

MessageBox.Show( dr("姓名") & " 员工的公积金数据找不到,请检查其姓名和公积金")

Return

mg.Merge()

msgbox(DataTables("计时工资库").datarows.count - count)

End If

只能用代码导，不能用merger，参考：http://www.foxtable.com/webhelp/scr/2334.htm

你的思路反了吧，应该是用excel表里的行去对应foxtable里面表的对应datarow

比如 sheet1的0，0是年份 0，1是月份，0，2是姓名

那么根据这三个条件去找对应的drr

这样筛选条件就好写了吧。。。

至于sheet1读取有多少行， for next一下就ok了。。。

[此贴子已经被作者于2016/12/6 17:44:49编辑过]

不能用这种方式合并了。你要这样处理

http://www.foxtable.com/webhelp/scr/2334.htm

或者试试

下载信息 [文件大小：312.0 KB 下载次数：4]
点击浏览该文件:excel作为数据源_合并.table

不会你说的方法，例子已上，麻烦修改一下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:公积金.xls

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

Excel有问题，把内容以文本形式（不带格式）拷贝到一个新Excel表再导入

Dim dlg As new OpenFileDialog

dlg.Filter = "Excel文件|*.xls;*.xlsx"

If dlg.ShowDialog = DialogResult.OK Then

Tables("工资表").StopRedraw()

Dim Book As New XLS.Book(dlg.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms() As String = {"姓名","年份","月份","公积金"}

'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

For n As Integer = 1 To Sheet.Rows.Count -1

Dim r As Row = Tables("工资表").AddNew()

For m As Integer = 0 To nms.Length - 1

r(nms(m)) = Sheet(n,m).Value

End If

Tables("工资表").ResumeRedraw()

主题：[求助]合并外部excel，自动打开方式，并合并某列数据