Dim Filter As String Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行 If e.Node.Text <> "显示所有行" Then Select Case e.Node.Level Case 0 Filter = "[物资编码] = '" & dr("物资编码") & "'" Case 1 Filter = "[物资编码] = '" & dr("物资编码") & "' And [物资类别] = '" & dr("物资类别") & "'" Case 2 Filter = "[物资编码] = '" & dr("物资编码") & "' And [物资类别] = '" & dr("物资类别") & "' And [物资名称] = '" & dr("物资名称") & "'" End Select End If DataTables("仓库管理系统_Table3").loadFilter = Filter DataTables("仓库管理系统_Table3").load
|