合并文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、选择几个文件后、最终上传的结果是其中一个文件多次上传。

2、打开选择窗口后、选择多个文件时反应很慢；如果有100个文件要选的话、就停在那里不动啦

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

文件多，选择卡是正常的。考虑分批处理。

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

您的软件版本比我的高、我无法打开你的项目；麻烦您把命令直接发给我。谢谢

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20240428171847.png

更新foxtable到最新版

提示加密狗有效期过期了、无法升级；要怎么处理？

此主题相关图片如下：微信图片_20240428172442.png

联系客服，QQ：800014337，购买升级服务

这个要汇报领导、你先把公式发给我吧

麻烦把命令发给我

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

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

dlg.MultiSelect = True '允许选择多个文件

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

Tables("国铁商城低值易耗品清单表").StopRedraw() '开始执行

For Each fl As String In dlg.FileNames

Dim Book As New XLS.Book(fl)

Dim Sheet As XLS.Sheet = Book.Sheets(0)' 读取文件中的第1个表(从0算起)

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

Dim nms() As String = {"序号","系统编号","订单号","商品名称","型号 ","单价","数量","金额","站段归属","申请站段","订单备注","领用时间","使用站段","存放地点","保管人","低值备注"}

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

For n As Integer = 4 To Sheet.Rows.Count -1 ' 从第5行开始(从0算起)

Dim r As Row = Tables("国铁商城低值易耗品清单表").AddNew()

For m As Integer = 0 To nms.Length - 1 ' 从第1列开始(从0算起)

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

Tables("国铁商城低值易耗品清单表").ResumeRedraw() '结束执行

End If

主题：合并文件