[求助]将成绩表中的数据条件筛选（考试年月、班级等）到成绩加载表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]将成绩表中的数据条件筛选（考试年月、班级等）到成绩加载表

共有2672人关注过本帖树形打印复制链接主题：[求助]将成绩表中的数据条件筛选（考试年月、班级等）到成绩加载表

game178

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：13 积分：176 威望：0 精华：0 注册：2019/2/26 17:34:00

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

Post By：2019/6/9 9:17:00 [只看该作者]

刚接触这个，以前都是用EXCEL

现在成绩表中有很多数据，多次考试的成绩，想条件筛选（如考试年月、班级等）后加载到新表：成绩加载表中去【防止数据改动，也为了后面的统计】

以便后期对加载数据进行成绩分析，排名等。

有哪位大大有空帮忙解惑吗？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩筛选到新表再统计或排名.table

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/9 10:11:00 [只看该作者]

加上填充的代码即可，如

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

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

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4733 积分：34458 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/6/9 10:32:00 [只看该作者]

Dim lms As String = "考试性质|考试年月|班级|科类|姓名"

Dim Filter As String

Dim lst As new List(of String)

For i As Integer = 0 To lms.Split("|").Length - 1

Dim s As String = Forms("筛选").Controls("combobox" & i+1).Value

If s > ""

lst.Add(lms.Split("|")(i) & "='" & s & "'")

End If

Filter = String.join(" and ",lst.ToArray)

Dim jb As New SQLJoinTableBuilder("查询表1","成绩表")

jb.AddCols("*")

jb.Filter = Filter

DataTables("成绩加载表").DataRows.Clear

Dim f As New Filler

f.SourceTable = jb.Build(True)

f.DataTable = DataTables("成绩加载表")

f.Fill()

MainTable = Tables("成绩加载表")

game178

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：13 积分：176 威望：0 精华：0 注册：2019/2/26 17:34:00

Post By：2019/6/12 12:32:00 [只看该作者]

以下是引用有点甜在2019/6/9 10:11:00的发言：

加上填充的代码即可，如

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

If Filter > "" Then

Tables("成绩加载表") .Filter = Filter

End If

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/12 12:54:00 [只看该作者]

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

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

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

game178

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：13 积分：176 威望：0 精华：0 注册：2019/2/26 17:34:00

Post By：2019/6/12 16:22:00 [只看该作者]

放在成绩加载表里面的窗口中，好像没有起到作用，而且第一行还是空白

game178

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：13 积分：176 威望：0 精华：0 注册：2019/2/26 17:34:00

Post By：2019/6/12 16:24:00 [只看该作者]

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

If Filter > "" Then

Tables("成绩表") .Filter = Filter

End If

放在成绩表的窗口中能进行有效筛选

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/12 17:17:00 [只看该作者]

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() '填充数据

下一主题 >> << 上一主题

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