数值筛选表达式 str = "[岗位ID]= MM" 怎样写？

付谦

如果把[岗位ID]字段设成字符型下列语句运行正常：
Private Sub Treeview_NodeClick(ByVal Node As Object)
Dim MM As String
Dim str As String
MM = ""
str = ""
MM = Mid((Node.Key), 2, Len(Node.Key) - 1)
'str = "[岗位ID]='" & MM & "'"
Me.Form.FilterOn = True
Me.Form.Filter = str
End Sub

如果把[岗位ID]字段设成数字型下列语句运行不正常：
Private Sub Treeview_NodeClick(ByVal Node As Object)

Dim str As String
MM = 0
str = ""
MM = Mid((Node.Key), 2, Len(Node.Key) - 1)
str = "[岗位ID]= MM"
Me.Form.FilterOn = True
Me.Form.Filter = str
End Sub

koutx

MM = Mid((Node.Key), 2, Len(Node.Key) - 1)
Me.Filter = "[岗位ID] = " & CInt(MM)
Me.FilterOn = True

付谦

感谢二楼的帮助，给我解决问题了！