Foxtable(狐表)用户栏目专家坐堂 → 窗口制作打开指定文件问题?


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

主题:窗口制作打开指定文件问题?

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


加好友 发短信
等级:童狐 帖子:297 积分:2996 威望:0 精华:0 注册:2008/9/29 10:13:00
窗口制作打开指定文件问题?  发帖心情 Post By:2011/6/4 8:59:00 [只看该作者]

问题:共计123456个word模板,制作完成后要通过按键实现,单击指定word模板就可打开,我刻如何做,求解决方法,
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:问题.table

[此贴子已经被作者于2011-6-4 9:06:14编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/4 9:09:00 [只看该作者]

这里应该用ComboBox,而不是DropDownBox。

 

Dim v As string = e.Form.Cotrols("ComboBox1").Value

Select Case v

     case "1"

           打开模板1

     case "2"

           打开模板2

      case "3"

           打开模板3

End Select

 

 

 

 


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


加好友 发短信
等级:童狐 帖子:297 积分:2996 威望:0 精华:0 注册:2008/9/29 10:13:00
  发帖心情 Post By:2011/6/4 9:31:00 [只看该作者]

狐狸老爸 因不懂英文,我只会照猫画狐参考修改,能帮我制作一个成品吗?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/4 9:41:00 [只看该作者]

呵呵,你都没半成品,我怎么做成品? 其实2楼就几乎就是成品了。

如果是初学,建议先系统看看帮助,从使用指南开始看,使用是基础,会使用才谈得上开发,而且很多基础知识,例如表达式、外部数据源,都只在使用部分讲述的。

会用了,再看开发指南,看法部分的重点是编程基础和foxtable编程这两章,这两张要反复看,细致看。

 


 回到顶部
帅哥哟,离线,有人找我吗?
大雪山
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:297 积分:2996 威望:0 精华:0 注册:2008/9/29 10:13:00
  发帖心情 Post By:2011/6/4 10:13:00 [只看该作者]

老大 我到这一步,出现错误,不知原因 盼给予帮助 假定1.doc 在桌面上,该如何做
图片点击可在新窗口打开查看此主题相关图片如下:snap1.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2011-6-4 10:18:57编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/4 10:20:00 [只看该作者]

应该是:

 

Dim v As string = e.Form.Controls("ComboBox1").Value


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


加好友 发短信
等级:童狐 帖子:297 积分:2996 威望:0 精华:0 注册:2008/9/29 10:13:00
  发帖心情 Post By:2011/6/4 10:30:00 [只看该作者]

做好后,出错,原因不明,请修改

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


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/4 10:33:00 [只看该作者]

Dim v As String = e.Form.Controls("DropBox1").Value

Select Case v

     Case "1"

End Select


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


加好友 发短信
等级:童狐 帖子:297 积分:2996 威望:0 精华:0 注册:2008/9/29 10:13:00
  发帖心情 Post By:2011/6/4 10:43:00 [只看该作者]

打不开桌面上1.doc 这个文件 老大再辛苦一下

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/6/4 13:00:00 [只看该作者]

你要是看过帮助就不会打不开了:

 

Dim v As String = e.Form.Controls("DropBox1").Value

Select Case v

     Case "1"

     Dim Proc As New Process
     Proc.File = "c:\1.doc"
     Proc.Start()

End Select


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