[求助]导入的时候加判断如何实现 Post By:2013/4/9 22:57:00 [显示全部帖子]
用这样的语句去先打开一个对话框导入文件。
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog dlg.Filter= "Excel||*.xls" '设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Dim mg As New Merger mg.Format = "excel" '指定格式 mg.SourcePath = dlg.FileName mg.SourceTableName = "订单" mg.DataTableName = "订单" mg.Merge() End If