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 '如果用户单击了确定按钮 这段代码出现窗口自己选择的路径和自己录入的文件名? 谢谢
|