这个意思?
Dim drs As List(Of DataRow) = dt1.Select("选择 = true")
If drs.Count = 0 Then
msgbox("提示")
End If