如何实现这种效果！！谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现这种效果！！谢谢

共有26693人关注过本帖树形打印复制链接主题：如何实现这种效果！！谢谢

杨浩

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

如何实现这种效果！！谢谢 发帖心情

Post By：2009/7/24 17:08:00 [只看该作者]

Dim aa As string

aa = e.Form.Controls("单位名称").Value

MessageBox.Show( aa &"下发单位数据生成完成！！！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) 实现了！！

MessageBox.Show( “下发" aa & "单位数据生成完成！！！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) 无法实现？有办法没？

杨浩

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/7/24 17:13:00 [只看该作者]

还有就是SaveFileDialog 的属性

l         OverwritePrompt   逻辑型，对于已经存在的文件名，是否出现覆盖警告；

              弹出的警告窗口自己可是设置名字不，弹出来还是“另存为”！
             弹出的警告语又是英文，有些单位看不懂！！！可以自己可以设置，警告语不？

希望贺老六能够加参数，实现！！！
谢谢

杨浩

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/7/24 17:28:00 [只看该作者]

版主帮帮帮

杨浩

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/7/24 17:49:00 [只看该作者]

EncryptFile(DLG.filename,DLG.filenameA, "fox123")

如何实现动态！！

杨浩

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/7/24 17:52:00 [只看该作者]

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog
dlg.Filter= "上报文件|*.SB"   '设置筛选器
dlg. title= "生成上报文件"
dlg.OverwritePrompt = True '对于已经存在的文件名,是否出现覆盖警告
If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮
If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在
    FileSys.DeleteFile(dlg.filename,2,2)     '则彻底删除之
    End If
    Dim ex as New Exporter
    ex.SourceTableName = "调资基础数据"   '指定导出表
ex.Format = "Access"   '指定导出文件格式
    ex. PassWord = "TZX_GWY_JT_8888" '用此属性指定目标文件的密码
ex.filepath = dlg.filename    '指定目标文件
ex.NewTableName = "调资基础数据"        '指定导出后的表的名称
    ex.Export()    '开始导出数据
EncryptFile("filename","filenameA", "fox123")
    MessageBox.Show("上报数据生成完成!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If