应该是没有符合条件的数据,试试
Dim Filter As String = "(已读人='' or 已读人 is null) and 接收人='" & _账户ID & "' "
msgbox(Filter )
我测试没有问题
窗口afterload
Dim cmd As New SQLCommand
cmd.ConnectionName = "SQL"
cmd.CommandText = "Select * From {用户管理} where 部门名称='业务部'"
Dim dt As DataTable = cmd.ExecuteReader(True)
Tables("窗口1_Table1").DataSource = dt
Tables("窗口1_Table1").AllowEdit=True
追加按钮
dataTables("窗口1_Table1").AppendLoad("部门名称='工程部'",False)
可以看到追加后的数据