以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜单栏设计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124323)
--  作者：wtfwsk05
--  发布时间：2018/9/4 15:11:00
--  菜单栏设计
在功能组中的项目中创建了一个“帮助”按钮，希望点击该按钮打开帮助文件；如帮助文件不存在时，提示：帮助文件不存在，请问下应该 怎么修改下述代码或 怎么添加判决条件：
Dim Proc As New Process \'定义一个新的Process
Proc.File = ProjectPath & "catch\\民通仓管系统使用说明.doc" \'指定要打开的文件
Proc.Start()

--  作者：有点甜
--  发布时间：2018/9/4 15:21:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0337.htm

 
--  作者：wtfwsk05
--  发布时间：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

--  作者：有点甜
--  发布时间：2018/9/4 16:28:00
--  
肯定别的地方引用了这个表的数据，所以要重新赋值。