主题：[讨论]版主：请问：这段代码有错码？为什么在命令窗口一执行，就退出 Foxtable 2011

请问：这段代码有错码？为什么在命令窗口一执行，就退出 Foxtable 2011

Forms("产品配置").Show()
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

这是人家的代码吧，也许并不适合你的。

编程是严谨的，首先要理解，才能参考人家的为自己所用。

作为初学者，还是先系统看一下帮助文件吧。

命令窗口執行生成目錄樹?愧你還敢說已看過4次幫助文件呢?

一般步驟:窗口管理---增加窗口------設計窗口--------在窗口右側控件中---雙擊目錄樹----選擇事件---窗口右上角AfterLoad事件---加入生成目錄樹代碼----保存

应发个项目文件才好找原因····