专家坐堂-下拉框不会出来！求教，啥问题？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下拉框不会出来！求教，啥问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91379)

--  作者：nbsfy3378
--  发布时间：2016/10/9 15:30:00
--  下拉框不会出来！求教，啥问题？

NodeMouseClick：
If e.Node.Level = 0 Then \'如果是顶层节点
Return \'则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\\")
Dim Filter As String = "[类别二] = \'" & Vals(1) & "\'"
Dim dr As DataRow = DataTables("项目分类").Find(Filter)
If CurrentTable.DataTable.Name= "项目表"
Dim r As Row =Tables("项目表").Current
r("类别一")=dr("类别一")
r("类别二")=dr("类别二")
e.Form.Close()
End If

AfterLoad：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("项目分类","类别一|类别二")

--  作者：nbsfy3378
--  发布时间：2016/10/9 15:40:00
--
不好意思，该列被我锁定了！解锁就没事了！