Dim prds As List(of String) = DataTables("lbgl").GetValues("gmsslx")
改成
Dim prds As List(of String) = DataTables("lbgl").GetValues("gmsslx", "gmsslx is not null")