数据加载问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String

With e.Form.Controls("combobox3")

If .Value IsNot Nothing Then

Filter &= "发起部门 = '" & .Value & "'"

End If

End With

With e.Form.Controls("startdate1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "发起时间 >= '" & .Value & "'"

End If

End With

With e.Form.Controls("enddate1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "发起时间 <= '" & .Value & "'"

End If

End With

If e.Form.Controls("checkbox3").checked=True

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = filter & "是否完成=1"

ElseIf e.Form.Controls("checkbox3").checked=False

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = filter & "是否完成=0"

End If

filter=filter & "责任部门=user.name and 是否单发=0"

If Filter > "" Then

With Tables("主表").DataTable

.LoadFilter = Filter

.LoadOrder = "发起时间 Desc"

.Load()

End With

Tables("主窗口_Table3").Sort = "日期 DESC"

End If

这段代码除了黄色标记部分都是正常的，现在加入黄色标记部分想实现的功能是：排除掉责任部门不等于user.name并且是否单发=1的行。

这样写最后筛选出的结果是责任部门列的值都是当前登录用户的行，而且是否单发列没有被勾选。而我要的是责任部门列中也存在不是当前登录用户名的行，只是把责任部门列不是当前登录用户名且是否单发被勾选的行排除掉。

"责任部门='" & user.name ，老师，这句筛选的结果不就是把责任部门列都筛选成当前登录用户的行吗？

比如说我的责任部门有财务部，工程部，综合部，我现在是综合部登录，如果这样，是不是显示的都是综合部的行？而实际上，如果责任部门列是财务部且是否单发为0的行，我也想显示。

filter= "责任部门 ='" & user.name & "' or (责任部门<>'" & user.name & "' and 是否单发=0)"

应该不等于吧

麻烦问下，先在项目事件中定义了加载，然后在窗口打开事件中再定义加载，如果不清除之前的加载条件，是在原加载数据基础上进行筛选加载吗？

主题：数据加载问题