合并要使用Merger ：
http://www.foxtable.com/webhelp/topics/0685.htm
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "xls文件|*.xlsx;*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
dim xh as integer = DataTables("生产计划表").compute("max(序号)")
dim id as integer = DataTables("生产计划表").compute("max(_identify)") Dim ip As New Merger
ip.SourcePath = dlg.FileName '指定数据文件
ip.SourceTableName = "生产计划表" 'execl文件里的sheet名称
ip.NewTableName ="生产计划表" '导入后的表名
if dlg.FileName.endswith(".xls")
ip.Format = "Excel" '指定导入格式
else
ip.Format = "Excel2007" '指定导入格式
end if
ip.Merge()
for each dr as datarow in DataTables("生产计划表").select("_identify>" & id,"_identify")
xh = xh + 1
dr("序号") = xh
next
End If
加好友 
发短信
Post By：2024/3/8 9:10:00 [显示全部帖子]
