Guest User

Untitled

a guest
May 25th, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.93 KB | None | 0 0
  1. (String) (String) (String) (String) (Integer)
  2. Criteria | description | Option | Title | status
  3. ------------------------------------------------------------
  4. Criteria 1 Lorem Ipsum Option 1 Class # 0
  5. Criteria 1 Lorem Ipsum Option 1 Class # 0
  6.  
  7. Criteria 2 Lorem Ipsum Option 1 Class # 0
  8. Criteria 2 Lorem Ipsum Option 2 Class # 1
  9. Criteria 2 Lorem Ipsum Option 3 Class # 0
  10.  
  11. Criteria 3 Lorem Ipsum Option 1 Class # 0
  12. Criteria 3 Lorem Ipsum Option 2 Class # 1
  13. Criteria 3 Lorem Ipsum Option 2 Class # 0
  14. Criteria 3 Lorem Ipsum Option 3 Class # 0
  15.  
  16. --VB.NET--
  17. Dim dt As DataTable = StoredProcedure
  18.  
  19. For Each row As DataRow In dt.Rows
  20. Dim sCriteriaOne As DataRow() = dt.Select("Criteria='Criteria 1'")
  21.  
  22. Item.Append("<p>" + CStr(sCritOne.Item("Option")) + "</p>")
  23. Next
Add Comment
Please, Sign In to add comment