Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单栏设计


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

主题：菜单栏设计
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		菜单栏设计  发帖心情 Post By：2018/9/4 15:11:00 [只看该作者]

在功能组中的项目中创建了一个“帮助”按钮，希望点击该按钮打开帮助文件；如帮助文件不存在时，提示：帮助文件不存在，请问下应该 怎么修改下述代码或 怎么添加判决条件：
Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "catch\民通仓管系统使用说明.doc" '指定要打开的文件
Proc.Start()


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/4 15:21:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/4 16:22:00 [只看该作者]

项目初始化.Click
Dim Result As DialogResult
Result = MessageBox.Show("系统初始化将删除所有数据,继续吗?", "提示",MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
    DataTables("业务").DataRows.clear()
    DataTables("出售").DataRows.clear()
    DataTables("库存").DataRows.clear()
    DataTables("设置").DataRows.clear()
    RibbonTabs("民通电脑库存管理")("商品管理")("期初建库").Enabled = True
    RibbonTabs("民通电脑库存管理")("商品管理")("商品采购").Enabled = False
    RibbonTabs("民通电脑库存管理")("商品管理")("商品出售").Enabled = False
    RibbonTabs("民通电脑库存管理")("商品管理")("盘点库存").Enabled = False
    Dim w As Row=Tables("使用单位").Current
    w("可用")=0
    MessageBox.Show("系统初始化完成!")
End If
请问下在项目初始化过程中为什么要加上下述代码：
Dim w As Row=Tables("使用单位").Current
    w("可用")=0


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/4 16:28:00 [只看该作者]

肯定别的地方引用了这个表的数据，所以要重新赋值。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询