如下代码,我的本意是,在表格里筛选,列出 我想要的项目, 如果当前加载的表格里找不到,我再加载过来后再筛选出来我想要的
麻烦看一下我的代码哪里不对??
If User.Group = "经理" Then
Dim filter As String
Dim pro As WinForm.ComboBox = e.Form.Controls("项目编号")
If pro.Text IsNot Nothing Then
filter = "项目编号 like '%" & pro.text & "%'"
End If
Tables("项目总表").Filter = filter
If Tables("项目总表").Position = 1 Then
'
DataTables("项目总表").LoadFilter = filter
DataTables("项目总表").Load
End If
End If