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


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

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

帅哥哟,离线,有人找我吗?
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


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


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

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

 回到顶部