t.Sort ="_SortKey"
For i As Integer = 0 To LB.Items.Count -1
Dim getLB As String = LB.Items(i)
Dim LBs() As String = getLB.Split(":")'listbox里每行是 00000103:MR10256,所以要split
Dim Filter As String ="CD1ItemID = '" & LBs(0) & "'"
Dim dr As DataRow = DataTables("CD1ItemInfo").find(Filter)
If dr Is Nothing Then
dr = DataTables("CD1ItemInfo").AppendLoad(Filter,False)(0)
End If
dr("_SortKey") = i
Next