Dim dlg As New SaveFileDialog '指定一个新的SaveFileDialog dlg.Filter= "上报文件|*.mdb" '设置筛选器 dlg.OverwritePrompt = If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Dim ex as New Exporter ex.SourceTableName = "调资基础数据" '指定导出表 ex.filepath = '指定目标文件 ex.Export() '开始导出 MessageBox.Show("成功生成上报数据!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) End If
1、dlg.OverwritePrompt = 如何使用? 2、ex.filepath = '指定目标文件 如何设置成 Dim dlg As New SaveFileDialog '指定一个新的SaveFileDialog dlg.Filter= "上报文件|*.mdb" '设置筛选器 dlg.OverwritePrompt = If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 这段代码出现窗口自己选择的路径和自己录入的文件名? 谢谢
Dim dlg As New SaveFileDialog dlg.Filter= "上报文件|*.mdb" dlg.OverwritePrompt = True If dlg.ShowDialog = DialogResult.Ok Then Dim ex as New Exporter ex.SourceTableName = "订单" ex.NewTableName = "订单" ex.Format = "Access" ex.filepath = dlg.filename ex.Export() MessageBox.Show("上报数据完成!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) End If
Dim dlg As New SaveFileDialog dlg.Filter= "上报文件|*.TXT" dlg.OverwritePrompt = True If dlg.ShowDialog = DialogResult.Ok Then Dim ex as New Exporter ex.SourceTableName = "调资基础数据" ex.Format = "Delimited" ex.filepath = dlg.filename ex.Export() MessageBox.Show("上报数据完成!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) End If 提示路径错误