标题：生成的上报文件，要刷新一次才能见到？有什么办法没？
你要将你的设计思路、代码贴出来，以及说出关键的问题所在，要学会表述问题，让大家快速明白你的问题。
Dim dlg As New SaveFileDialog '指定一个新的SaveFileDialog(保存文件对话框)
dlg.Filter= "上报文件|*.DSB" '设置筛选器
dlg. title= "生成上报文件" '设置对话框标题
dlg.OverwritePrompt = False
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
If FileSys.FileExists(dlg.filename) Then '如果指定的文件存在
if Messagebox.Show("有同名文件存在,是否删除?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes then
FileSys.DeleteFile(dlg.filename,2,2) '则彻底删除之
Else
MessageBox.Show("你取消删除同名文件，系统停止生成上报文件！！！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End if
End If
dim Names() As String = {"调资基础数据","职务变动基础信息"}
For Each nm As String In Names
Dim ex as New Exporter
ex.SourceTableName = nm '指定导出表
ex.Format = "Access" '指定导出文件格式
ex. PassWord = "TZX_GWY_JT_8888" '用此属性指定目标文件的密码
ex.filepath = dlg.filename '指定目标文件
ex.NewTableName = nm '指定导出后的表的名称
ex.Export() '开始导出数据
Next
FileSys.CopyFile(dlg.filename, dlg.filename & ".bak",False)
FileSys.DeleteFile(dlg.filename, 2, 2)
EncryptFile(dlg.filename & ".bak", dlg.filename, "8888")
FileSys.DeleteFile(dlg.filename & ".bak", 2, 2)
MessageBox.Show("上报数据生成完成!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rsgzglxt.rar |
用这段代码实现的上报数据，需要刷新一次才能看见？
不知道是为啥
你说的刷新是啥？
是菜单中的同步吗？
如果是的，参考DataTable的Load方法。
调用操作系统的刷新
生成的文件要刷新才能看到，应该是系统的问题。
正常的话，新建的任何文件在目录下都能及时看到。
你可以去专业的操作系统论坛问问看看，这些我也不太懂。