功能是,只读取用户自己的当天录入的数据
Dim Filter As StringFilter=cexp( "[登记人] = '"& user.name &"',And [登记日期] = #{0}#", Date.Today)MessageBox.Show(Filter)DataTables("表A").loadFilter = FilterDataTables("表A").load