你要将你的设计思路、代码贴出来，以及说出关键的问题所在，要学会表述问题，让大家快速明白你的问题。

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

用这段代码实现的上报数据，需要刷新一次才能看见？

不知道是为啥

你说的刷新是啥？

是菜单中的同步吗？

如果是的，参考DataTable的Load方法。

生成的文件要刷新才能看到，应该是系统的问题。

正常的话，新建的任何文件在目录下都能及时看到。

你可以去专业的操作系统论坛问问看看，这些我也不太懂。