| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请问:程序编好在什么地方运行？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12998) |
| -- 作者：myw151 -- 发布时间：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 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/9/23 16:59:00 -- 似乎应该在窗口的AfterLoad事件。 |
| -- 作者：myw151 -- 发布时间：2011/9/23 20:41:00 -- 不是这个意思，我问的意思是编了程序，怎么操作，才能实现要的结果 |
| -- 作者：e-png -- 发布时间：2011/9/23 23:25:00 -- 你可以看看项目事件、表事件、窗口设计中的各种控件的事件，等等等等，所编写的代码按需要放在不同的地方，都会得到执行。有些代码放在命令窗口也可以执行。 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/9/24 8:38:00 -- 楼主还是先按顺序看一下帮助吧 |