While rd.Read
lsv = New ListViewItem(rd("JOBNO").ToString)
'lsv.Checked = True
lsv.SubItems.Add(rd("ContainerNo").ToString)
lsv.SubItems.Add(rd("CartonFrom").ToString)
lsv.SubItems.Add(rd("PO").ToString)
lsv.SubItems.Add(rd("Style").ToString)
lsv.SubItems.Add(rd("Color").ToString)
lsv.SubItems.Add(rd("CartonSize").ToString)
lsv.SubItems.Add(rd("ShipMent").ToString)
lsv.SubItems.Add(rd("Factory").ToString)
lstvwJobNo.Items.Add(lsv)
End While
Cursor.Current = Cursors.Default
Return List_dgJobNo = 1
Catch ex As Exception
MessageBox.Show(ex.ToString)
Return List_dgJobNo = -1
Finally
If con.State = ConnectionState.Open Then
con.Close()
End If
End Try
End Function
'获得排序的字段,并显示排序标记
Private Sub lstvwJobNo_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lstvwJobNo.ColumnClick
Select Case e.Column.ToString
Case 0
myField = "JOB.JOBNO"
Case 1
myField = "CONTAINERNO"
Case 2
myField = "CARTONFROM"
Case 3
myField = "PO"
Case 4
myField = "STYLE"
Case 5
myField = "COLOR"
Case 6
myField = "CARTONSIZE"
Case 7
myField = "SHIPMENT"
Case 8
myField = "FACTORY"
End Select
Dim i As Integer
