Dim drs As List(of DataRow) = DataTables("bb").SQLSelect("select * fr om {bb} where yxdm+remarks+str(minscores)+pcdm+kldm+year in (select yxdm+remarks+str(min(minscores))+pcdm+kldm+year fro m {bb} GROUP BY yxdm,remarks,pcdm,kldm,year having count(*)>1)")
改成
Dim drs As List(of DataRow) = DataTables("bb").SQLSelect("yxdm+remarks+str(minscores)+pcdm+kldm+year in (select yxdm+remarks+str(min(minscores))+pcdm+kldm+year fro m {bb} GROUP BY yxdm,remarks,pcdm,kldm,year having count(*)>1)")