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


  共有1864人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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 [只看该作者]


 回到顶部
帅哥,在线噢!
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4627 积分:33767 威望: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
Next
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 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
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() '填充数据

 

 


 回到顶部