If e.Node.Level = 1 Then
If Forms(e.Node.Text).TableName <> "" Then '不是模式,独立窗口
Dim cmd As New SQLCom mand
Dim dt As DataTable
cmd.Con necti
cmd.Com mandText = "SELE CT DISTINCT 子菜单,权限 From {菜单目录} where [主表] Like '%" & e.node.text & "%'"
dt = cmd.ExecuteReader( )
If DataTables.Contains(Forms(e.Node.Text).TableName) = False Then '如果表C没有加载
Dim dr As DataRow = DataTables("菜单目录").find("权限='" & e.node.text & "'")
If dr IsNot Nothing Then
DataTables.Load(dr("主表")) '加载表C
'DataTables.Load(dr("主表") & "|" & dr("关联表")) '加载表C
End If
Forms(e.Node.Text).show
MainTable = Tables(Forms(e.Node.Text).TableName)
Else
Forms(e.Node.Text).show
End If
End If
Else
msgbox( e.node.text & " 正在测试 中尚未开放")
End If
加载了数据还是有错误
---------------------------
提示
---------------------------
不存在名称为"菜单目录"的DataTable!
---------------------------
确定
---------------------------