Foxtable(狐表)用户栏目专家坐堂 → 上报按钮代码,版主看看,谢谢


  共有17368人关注过本帖树形打印复制链接

主题:上报按钮代码,版主看看,谢谢

帅哥哟,离线,有人找我吗?
杨浩
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:483 积分:2913 威望:0 精华:0 注册:2008/9/21 16:18:00
上报按钮代码,版主看看,谢谢  发帖心情 Post By:2009/7/21 8:57:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
杨浩
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:483 积分:2913 威望:0 精华:0 注册:2008/9/21 16:18:00
  发帖心情 Post By:2009/7/21 9:22:00 [只看该作者]

各位版主帮帮忙,看看,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
杨浩
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:483 积分:2913 威望:0 精华:0 注册:2008/9/21 16:18:00
  发帖心情 Post By:2009/7/21 9:33:00 [只看该作者]

各位版主帮帮忙,看看,谢谢

 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/7/21 9:34:00 [只看该作者]

加了一个可选表名的文本框

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:上报文件.table


 回到顶部
美女呀,离线,留言给我吧!
梦倩
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:60 积分:492 威望:0 精华:0 注册:2009/6/4 8:00:00
  发帖心情 Post By:2009/7/21 9:35:00 [只看该作者]

我做的上报数据的按钮:

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

 回到顶部
帅哥哟,离线,有人找我吗?
杨浩
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:483 积分:2913 威望:0 精华:0 注册:2008/9/21 16:18:00
  发帖心情 Post By:2009/7/21 10:16:00 [只看该作者]

 

l         FilePath字符型,指定目标数据库文件名,含文件路径。如果导出格式是dBASE或者文本文件,那么只需指定路径。


导成TXT或DBF如何实现?

 回到顶部
帅哥哟,离线,有人找我吗?
杨浩
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:483 积分:2913 威望:0 精华:0 注册:2008/9/21 16:18:00
  发帖心情 Post By:2009/7/21 10:17:00 [只看该作者]

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

提示路径错误

 回到顶部
帅哥哟,离线,有人找我吗?
杨浩
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:483 积分:2913 威望:0 精华:0 注册:2008/9/21 16:18:00
  发帖心情 Post By:2009/7/21 10:18:00 [只看该作者]

如何实现动态选择的路径和录入的文件名?

 回到顶部
帅哥哟,离线,有人找我吗?
杨浩
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:483 积分:2913 威望:0 精华:0 注册:2008/9/21 16:18:00
  发帖心情 Post By:2009/7/21 10:20:00 [只看该作者]

老六应该做一个这方面的例子,任何多单位使用的软件都存在上报、接收、备份、恢复、下发!!!!

 回到顶部
帅哥哟,离线,有人找我吗?
杨浩
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:483 积分:2913 威望:0 精华:0 注册:2008/9/21 16:18:00
  发帖心情 Post By:2009/7/21 10:21:00 [只看该作者]

既然要搞开发版就要完善这方面!!!开发出来的软件肯定是多单位使用的

 回到顶部
总数 18 1 2 下一页