treeview子窗体

benlty

点击treeview子节点  子窗体如何更新代码如何实现！
请版主指点！

上传列子帮忙改改吧！

aslxt

参考：
Private Sub TreeView_NodeClick(ByVal Node As Object)
  Dim a
  a = Right(Node.Key, Len(Node.Key) - 1)
  Select Case Left(Node.Key, 1)
  Case "D"
    Str = "select * from a已用代码 where 名称 = '" & Node & "' ORDER BY 代码"
    List6.RowSource = Str

  Case Else
    Str = "select * from a已用代码 where 代码 like '" & a & "*' ORDER BY 代码"
    List6.RowSource = Str
    Me.出入库摘要子窗体.Form.Filter = "[代码] like '" & a & "*'"
    Me.出入库摘要子窗体.Form.FilterOn = True
  End Select
End Sub

benlty

谢谢指点！

benlty

请版主指点吧！
有treeview点击用户明细显示不了全部。

wen_abc

xiexie a

jakyky

谢谢啦

liushichao3687

1# benlty

liushichao3687

7# liushichao3687

好！

liushichao3687

hao