Dim cmd As New SQLCommandcmd.CommandText = "SELECT * From {表A} WHERE 数量 > 500"dt = cmd.ExecuteReader()
if dt.datarows.count=0 then ‘这句意思是找不到数量>500的,但测试不管用,请帮忙改写
messagebox.show(“XXX”)
return
endif