树型结构筛选数据？怎么样查找ID

ICEMAN

树型结构的这段代码有什么问题？为什么不能查ID(主关健字)？
Private Sub Treeview_NodeClick(ByVal Node As Object)

Dim str As String

If Node.Key = "²úÆ·¹¤Ðò" Or Node.Key Like "¸¸*" Or Node.Key Like "×Ó*" Then
str = ""
Else
str = "[¹¤ÐòID]= '" & Node.Key & "'"
End If
Me.Text29 = Mid(Node.Key, 2)
   
  DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Me.Form.Filter = str
Me.FilterOn = True
End Sub

多谢！

ICEMAN

Private Sub Treeview_NodeClick(ByVal Node As Object)


Dim str As String


If Node.Key = "产品工序" Or Node.Key Like "¸父*" Or Node.Key Like "子*" Then
str = ""

Else
str = "[工序ID]= '" & Node.Key & "'"

End If

Me.Text29 = Mid(Node.Key, 2)

   
  DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Me.Form.Filter = str
Me.FilterOn = True

End Sub


代码是这样的，刚才上传的有乱码

ICEMAN

试了好像不行呀，多谢你的回复！

tmtony

你可在执行时加个断点,查看 变量中的值 是否是正确

ICEMAN

str = "[工序ID]= '" & Node.Key & "'"
和
Me.Form.Filter = str
Me.FilterOn = True
之间有问题，该怎么样做？