如
Dim jiezhi As List(Of DataRow) = DataTables("表A").Select("第1级 <> '""' and [序号] > 0")
If jiezhi.count = 0 then
msgbox("空")
end if