主题：[求助]将成绩表中的数据条件筛选（考试年月、班级等）到成绩加载表

加上填充的代码即可，如

http://www.foxtable.com/webhelp/scr/0680.htm

http://www.foxtable.com/webhelp/scr/1533.htm

在筛选代码的后面，加入填充代码

http://www.foxtable.com/webhelp/scr/0680.htm

http://www.foxtable.com/webhelp/scr/1533.htm

Dim Filter As String

With e.Form.Controls("combobox1")
   
    If .Value IsNot Nothing Then
       
        Filter = "考试性质= '" & .Value & "'"
       
    End If
   
End With

With e.Form.Controls("combobox2")
   
    If .Value IsNot Nothing Then
       
        If Filter > "" Then
           
            Filter = Filter & " And "
           
        End If
       
        Filter &= "考试年月= '" & .Value & "'"
       
    End If
   
End With

With e.Form.Controls("combobox3")
   
    If .Value IsNot Nothing Then
       
        If Filter > "" Then
           
            Filter = Filter & " And "
           
        End If
       
        Filter &= "班级= '" & .Value & "'"
       
    End If
   
End With

With e.Form.Controls("combobox4")
   
    If .Value IsNot Nothing Then
       
        If Filter > "" Then
           
            Filter = Filter & " And "
           
        End If
       
        Filter &= "科类= '" & .Value & "'"
       
    End If
   
End With

With e.Form.Controls("combobox5")
   
    If .Value IsNot Nothing Then
       
        If Filter > "" Then
           
            Filter = Filter & " And "
           
        End If
       
        Filter &= "姓名= '" & .Value & "'"
       
    End If
   
End With

Dim f As New Filler
f.ExcludeExistValue = True
f.SourceTable = DataTables("成绩表") '指定数据来源
f.DataTable = DataTables("成绩加载表") '指定数据接收表
f.filter = filter
f.Fill() '填充数据