I am attempting to leard VB.NET. I came from a VB6 background and am
learning Visual Studio 2005, specifically VB, although there is little
difference between it and C anymore.

Here is a sample of the code (No Laughing. I am new to .net)

Sub LoadShipmentGrid()
Dim uvsession As UniSession
Dim uvSub As UniSubroutine
Dim Quote As String = Chr(34)
Dim Shipments As UniDynArray
Dim Args() As String = {"", ""}
Dim Valu As String
uvsession = UniObjects.OpenSession("192.169.2.222", "UserName",
"Password", "LogonAccount", "uvcs")
uvSub = uvsession.CreateUniSubroutine("SR.LOAD.SHIPMENT.LI ST",
3)
uvSub.SetArg(0, Profile.uvIntCustNo)
uvSub.Call()
Shipments = uvSub.GetArgDynArray(1)
' Generate rows and cells.
Dim TrackNo As String = ""
Dim numrows As Integer = Shipments.Dcount(0)
Dim numcells As Integer = 4
Dim j As Integer
Dim RelNo As String = ""
For j = 0 To numrows - 1
Dim r As New TableRow()
Dim i As Integer
For i = 0 To numcells - 1
Dim c As New TableCell()
Valu = Shipments.Extract(j, i + 1, 0).ToString
c.Controls.Add(New LiteralControl("row " & j.ToString()
& ", cell " & i.ToString()))
r.Cells.Add(c)
If i = 0 Then
r.Cells.Item(i).Text = Valu 'Cust Po#
End If
If i = 1 Then
RelNo = Valu 'FSR Rel#
r.Cells.Item(i).Text = "<a href=" & Chr(34) &
"DisplayRelease.aspx?Relno=" & RelNo & Chr(34) & ">" & RelNo & "</a>"
End If
If i = 2 Then
r.Cells.Item(i).Text = Valu 'Ship Date
End If
If i = 3 Then
TrackNo = Valu
r.Cells.Item(i).Text = "<a href=" & Chr(34) &
"track.aspx?RelNo=" & RelNo & Chr(34) & ">" & TrackNo & "</a>"
End If
Next i
ShipmentTable.Rows.Add(r)
Next j
UniObjects.CloseSession(uvsession)
End Sub








In article <eildd2dbu619th9eqsbkdka8pvp8tdprgh (AT) 4ax (DOT) com>, g6q3x9lu53001
@sneakemail.com.invalid says...