内部函数【组题】
……
Dim Str As String
For Each fl As String In fls
Dim dr As DataRow = DataTables("组题方式").Find("[试题] = '" & fl & "'")
If dr IsNot Nothing
'组合字符串
str = str & " or [分类] = '" & fl & "' And [组题] <= " & dr(Vars("适合年级"))*100
End If
Next '筛选
If str > "" Then str = str.SubString(4)
Tables("试题库").Filter = str
……