SHARE
TWEET

Untitled

Ortund Oct 31st, 2011 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         Dim sql As String = "select * from Users where UserID in (select UserID from OrgUsers where OrgID = " & CInt(targetOrg) & ")"
  2.         Dim dr As SqlDataReader = d.GetReader(sql)
  3.         If dr.HasRows Then
  4.             Dim paid As List(Of String) = Nothing
  5.             While dr.Read
  6.                 If dr.Item("PaymentReceivedYN") Then
  7.                     paid.Add("1")
  8.                 Else
  9.                     paid.Add("0")
  10.                 End If
  11.             End While
  12.             dr.Close()
  13.  
  14.             If paid.Contains("0") Then
  15.                 chkOrgPaid.Checked = False
  16.             Else
  17.                 chkOrgPaid.Checked = True
  18.             End If
  19.         End If
  20.  
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top