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


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

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

帅哥哟,离线,有人找我吗?
y2287958
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4753 积分:34573 威望: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("成绩加载表")

 回到顶部