下面代码,可以筛选出自己的信息
Tables("表A").Filter = "处理人员 Like \'%" & user.name & "%\'"
下面代码可以提示
Dim fdr As DataRow = DataTables("表A").Find("处理人员 Like \'%" & user.name & "%\'")
If fdr IsNot Nothing Then
msgbox("你有信息")
End If