下面代码，可以筛选出自己的信息
Tables("表A").Filter = "处理人员 Like '%" & user.name & "%'"
下面代码可以提示
Dim fdr As DataRow = DataTables("表A").Find("处理人员 Like '%" & user.name & "%'")
If fdr IsNot Nothing Then
msgbox("你有信息")
End If
加好友 
发短信
Post By：2017/6/23 0:28:00 [显示全部帖子]
