Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim sql As String = "select * from Users where UserID in (select UserID from OrgUsers where OrgID = " & CInt(targetOrg) & ")"
- Dim dr As SqlDataReader = d.GetReader(sql)
- If dr.HasRows Then
- Dim paid As List(Of String) = Nothing
- While dr.Read
- If dr.Item("PaymentReceivedYN") Then
- paid.Add("1")
- Else
- paid.Add("0")
- End If
- End While
- dr.Close()
- If paid.Contains("0") Then
- chkOrgPaid.Checked = False
- Else
- chkOrgPaid.Checked = True
- End If
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement