Private Sub frmNavigationControls_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim oController As ProductController = New ProductController lsData = oController.findAll() End Sub Private Sub btnFirst_Click(sender As Object, e As EventArgs) Handles btnFirst.Click Dim htData As Hashtable Dim iIndex As Integer iIndex = 0 iCurrentIndex = iIndex htData = lsData.Item(iIndex) Dim sProductDetails As String sProductDetails = CStr(htData("SKU")) sProductDetails = sProductDetails & " | " & CStr(htData("ProductName")) sProductDetails = sProductDetails & " | " & CStr(htData("ProductDescription")) sProductDetails = sProductDetails & " | " & CStr(htData("Category")) sProductDetails = sProductDetails & " | " & CInt(htData("ReorderLevel")) sProductDetails = sProductDetails & " | " & CInt(htData("LeadTime")) sProductDetails = sProductDetails & " | " & CInt(htData("Discontinued")) sProductDetails = sProductDetails & " | " & CDbl(htData("UnitPrice")) Debug.Print("ProductDetails: " & vbCrLf & sProductDetails) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)