For each v as String in DataTables(“xxx”).GetUniqueValues("","考场")
tables("XXX").Filter = "考场 = '" & v & "'"
'打印代码
Next
加好友 
发短信
Post By：2011/9/28 8:00:00 [只看该作者]
