求助,怎样无限名字随时可以合并数据,哪里错了,谢谢 Post By:2016/8/8 21:15:00 [只看该作者]
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog dlg.Filter= "Execl文件|*.xls" '设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Dim mg As New Merger mg.SourcePath = dlg.FileName '指定数据文件 mg.SourceTableName =dlg.FileName.replace(".xls", "") '指定要导入的表 mg.DataTableName="订单" mg.Format ="Excel" mg.FieldMaps.Add("型号","类型") mg.FieldMaps.Add("数量","数量") mg.Merge() '开始合并 End If