呵呵,好短的代码啊:
Dim dr As DataRow = DataTables("表A").Find("","成绩",8)Tables("表A").Filter = "成绩 < '" & dr("成绩") & "'"
可是哪来的“8”?