将 MSFlexGrid1.TextMatrix(1, 2) = rs.Fields("浮标号") 这句换成:
MSFlexGrid1.TextMatrix(1, 2) = IIf(IsNull(rs.Fields("浮标号")), "", rs.Fields("浮标号")) '即使是空值也忽略
MSFlexGrid1.TextMatrix(1, 2) = IIf(IsNull(rs.Fields("浮标号")), "", rs.Fields("浮标号")) '即使是空值也忽略