主题：[求助]筛选分栏打印命令怎么修改

q_Grid0.SelectString ="Select * Fr         om {student} Where [sid] Mod 2=1 and (" & iif(Tables("student").filter>"", Tables("student").filter, "1=1" & ")"
q_Grid0.Build

Dim q_Grid0  As new QueryBuilder
q_Grid0.TableName ="QB_student"
q_Grid0.ConnectionName ="网站管理"
q_Grid0.SelectString ="Select * Fr om {student} Where [sid] Mod 2=1 and (" & iif(Tables("成绩管理").filter>"", Tables("成绩管理").filter, "1=1") & ")"
q_Grid0.Build

Where [sid] Mod 2=1 and [cid] in (63, 65, 76)

报什么错啊？

代码没问题，贴出完整代码。

 

q_Grid0.SelectString ="Select * Fr om {student} Where [sid] Mod 2=1 and [cla_id] in (63, 65, 76)"

参考

 

Dim i As Integer = 1
Dim dt As DataTable = DataTables("打印")
Dim pdr As DataRow
dt.DataRows.Clear
For Each dr As DataRow In DataTables("成绩管理").Select("cla_id = '61'")
    If i Mod 2 = 1 Then
        pdr = dt.AddNew
        pdr("sid") = i
        pdr("sname") = dr("sname")
        pdr("suser") = dr("suser")
    Else
        pdr("sid1") = i
        pdr("sname1") = dr("sname")
        pdr("suser1") = dr("suser")
    End If
    i = i + 1
Next

tables("打印").rows.count * 2 - iif(tables("打印").rows.count mod 2 = 1, 1, 0)

For Each dr As DataRow In DataTables("成绩管理").Select("cla_id = '61'")

 

改成

 

For Each dr As Row In Tables("成绩管理").Rows

1、

 

Tables("成绩管理").Sort = "suser"

For Each dr As Row In Tables("成绩管理").Rows

 

2、直接写

 

某控件.Text = tables("打印").rows.count*2-iif(tables("打印").rows.count mod 2 = 1,1,0)