Foxtable(狐表)用户栏目专家坐堂 → [求助]请问:程序编好在什么地方运行?


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

主题:[求助]请问:程序编好在什么地方运行?

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


加好友 发短信
等级:婴狐 帖子:29 积分:304 威望:0 精华:0 注册:2011/9/16 9:24:00
[求助]请问:程序编好在什么地方运行?  发帖心情 Post By:2011/9/23 16:42:00 [只看该作者]

请问:程序编好在什么地方运行?比如: 

Forms("产品配置").Controls("GroupBox1").Enabled = not Forms("产品配置").Controls("GroupBox1").Enabled

 

Dim tr As WinForm.TreeView = Forms("产品配置").Controls("TreeView1")

Dim nd0,nd1,nd2,nd3,nd4,nd5 As WinForm.TreeNode

Dim fs As Integer

tr.Nodes.Clear   '清空原来的节点::::::::::

For Each dr As DataRow In DataTables("产品目录").Select("","序号")

    If dr("序号") <> "" Then

        fs = dr("节点")

        Select Case fs

 Case 0

                nd0 = tr.Nodes.Add(dr("序号").trim()  ,dr("型号"))

            Case 1

                nd1 = nd0.Nodes.Add(dr("序号").trim() ,dr("型号"))

            Case 2

                nd2 = nd1.Nodes.Add(dr("序号").trim() ,dr("型号"))

            Case 3

                nd3 = nd2.Nodes.Add(dr("序号").trim() ,dr("型号"))

            Case 4

                nd4 = nd3.Nodes.Add(dr("序号").trim() ,dr("型号"))

            Case 5

                nd5 = nd4.Nodes.Add(dr("序号").trim() ,dr("型号"))

          

        End Select

    End If

Next


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


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

似乎应该在窗口的AfterLoad事件。

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


加好友 发短信
等级:婴狐 帖子:29 积分:304 威望:0 精华:0 注册:2011/9/16 9:24:00
  发帖心情 Post By:2011/9/23 20:41:00 [只看该作者]

不是这个意思,我问的意思是编了程序,怎么操作,才能实现要的结果

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


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2011/9/23 23:25:00 [只看该作者]

你可以看看项目事件、表事件、窗口设计中的各种控件的事件,等等等等,所编写的代码按需要放在不同的地方,都会得到执行。有些代码放在命令窗口也可以执行。

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


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

楼主还是先按顺序看一下帮助吧

 回到顶部