[求助]目录树录入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tr As Row = Tables("收费单").Current
Dim dr As DataRow = e.node.DataRow
Select Case e.Node.Level
    Case 4
        If dr IsNot Nothing Then .
            tr("类别") = dr("类别")
            tr("科目") = dr("科目")
            tr("教师姓名") = dr("教师姓名")
            tr("上课时长") = dr("上课时长")
            tr("课时费") = dr("课时费")
            e.Form.DropDownBox.Value = tr("科目")
        End If
        e.Form.DropDownBox.CloseDropdown()
End Select

主题：[求助]目录树录入