With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
Tables("表名").Filter = "姓名 = '" & .Value & "'"
End If
End With
加好友 
发短信
Post By：2009/1/19 13:38:00 [显示全部帖子]
