动态TreeView(窗体控件物料节点动态)「动态生成控件」

Hi~大家好呀，6月应该是我们一年当中最特殊的月份了吧，有高考、有中考、有毕业、有期末考、也有买买买，那我们今天给大家分享点啥呢？要不，今天再给大家讲个查询功能吧
我查看了之前的文章，发现在讲解Treeview的时候，没有把Treeview与子窗体的联动，但在讲BOM的时候，给大家简单的理过这样的功能，对于这样实用的功能，怎么能不给大家详细的分享一下呢？1、表设计在什么情况下我们会去使用这个功能呢？比如我们的物料信息比较多，希望能快速的按物料类别查询，那像这种情况，我们就可以使用Treeview来操作了
我们先创建这样一张表，如下图，具体的这里的字段名简单解释一下，物料类别代码ProductClassCode，物料类别名称ProductClassName，上级IDParentID表设计完成后，就可以直接添加，这里我们可以简单的手工添加一些数据，可以参考一下我的数据，如下图：物料类别表设计好了，我们接着再创建一张表，也就是物料信息表，大概如下图：表设计好了，还是一样这里我们手工添加一下数据，如果你不知道添加什么数据，也可以参考我的：2.设计窗体这里我们需要新建两个窗体，一个用于存放数据的子窗体，一个是主窗体
我们先看一下子窗体：新建一个查询，查询名称：Q_Product

SELECT T_Product.ProductCode, T_Product.ProductName, T_ProductClass.ProductClassName, T_ProductClass.ProductClassCode, T_Product.ProductClassIDFROM T_Product INNER JOIN T_ProductClass ON T_Product.ProductClassID = T_ProductClass.ID;

记录源为:T_Product记录集类型：快照默认视图：数据表保存名称：F_Product_List接着，我们来创建主窗体，在窗体上放两个控件，一个Treeview，树控件的名称为：TreeView0，一个子窗体控件，子窗体控件的源对象为：F_Product_List，添加完成后，保存窗体
3、添加代码窗体设计完成后，我们就可以添加代码了，代码我们分两部分，一部分是加载树控件，另一个是在点击树控件后，对子窗体的数据源进行筛选

Private Sub Form_Load()Dim strSQL As StringDim rst As Object 'ADODB.RecordsetDim treeNode As Object 'MSComctlLib.NodeDim parentKey As StringMe.TreeView0.Nodes.Clear '清空所有节点Set treeNode = Me.TreeView0.Nodes.Add(, , "K0", "类别") '创建根节点strSQL = "SELECT  FROM T_ProductClass ORDER BY ProductClassCode"Set rst = CurrentDb.OpenRecordset(strSQL) '打开表记录Do Until rst.EOFparentKey = "K" & rst!ParentID '上级键值Me.TreeView0.Nodes.Add parentKey, tvwChild, "K" & rst!ID, rst!ProductClassName '添加树节点rst.MoveNextLooprst.CloseSet rst = Nothing' treeNode.Expanded = TrueFor Each treeNode In Me.TreeView0.Nodes '展开树节点treeNode.Expanded = TrueNextEnd SubPrivate Sub TreeView0_NodeClick(ByVal Node As Object)Dim strSQL As StringIf Node.Key = "K" ThenstrSQL = "SELECT  FROM Q_Product WHERE 1<>1"ElsestrSQL = "SELECT  FROM Q_Product WHERE ProductClassID =" & Mid(Node.Key, 2)End IfMe.F_Product_List.Form.RecordSource = strSQL'高亮点击的节点，这样焦点离开树控件后也能使节点显示出选中效果On Error Resume NextSet Me.TreeView0.DropHighlight = NodeEnd Sub

树控件点击后，取的数据是上一级物料代码的ID，刚好做为数据源的条件，子窗体的数据相应的变化
４、测试最后就是测试运行了
好了，今天的分享就到这里了
END