EndIf'初始化客戶ReDimarrclient(1,0)trsql="SELECT*FROMCLIENTORDERBYNAME"Setrs=sys.DB.OpenRecordSet(strsql)IfNot(rs.BOF)Or(rs.EOF)Theninum=0DoWhileNotrs.EOFReDimPreservearrclient(1,inum)arrclient(0,inum)=rs("ID")arrclient(1,inum)=rs("NAME") rs.MoveNextinum=inum+1 LoopEndIf'清除原有l(wèi)svTraffic.ListItems.ClearWithlsvTrafficlsvTraffic.ColumnHeaders.Clear .ColumnHeaders.Add,,"序號",600.ColumnHeaders.Add,,"日期",1200.ColumnHeaders.Add,,"品名",1200.ColumnHeaders.Add,,"車號",1200.ColumnHeaders.Add,,"發(fā)站",1200.ColumnHeaders.Add,,"到站",1200.ColumnHeaders.Add,,"發(fā)貨人",1200.ColumnHeaders.Add,,"重量",1200.ColumnHeaders.Add,,"運(yùn)費(fèi)",1200.GridLines=True.ColumnHeaders.Item(1).Alignment=lvwColumnLeft.ColumnHeaders.Item(2).Alignment=lvwColumnCenter.ColumnHeaders.Item(3).Alignment=lvwColumnCenter.ColumnHeaders.Item(4).Alignment=lvwColumnCenter.ColumnHeaders.Item(5).Alignment=lvwColumnCenter.ColumnHeaders.Item(6).Alignment=lvwColumnCenter.ColumnHeaders.Item(7).Alignment=lvwColumnCenter.ColumnHeaders.Item(8).Alignment=lvwColumnCenter.ColumnHeaders.Item(9).Alignment=lvwColumnCenterEndWithThenDimiqAsIntegerDimiaAsIntegerForiq=0ToUBound(arrTraffic,2)SetItem=lsvTraffic.ListItems.Add(,,"")Ite.Tagm =sys.StrToText(arrTraffic(0,iq))Ite.Text=sys.StrToText(iq+1)mItem.SubItems(1)=sys.StrToText(arrTraffic(2,iq))Foria=0ToUBound(arrProduct,2) IfrrProduct(0,a ia)=sys.TextTolong(arrTraffic(3,iq))Item.SubItems(2)=arrProduct(1,ia)EndIfThenNextItem.SubItems(3)=sys.StrToText(arrTraffic(1,iq))Foria=0ToUBound(arrstation,2)Ifarrstation(0,ia)=sys.TextTolong(arrTraffic(4,iq))Item.SubItems(4)=arrstation(1,ia)EndIfNextForia=0ToUBound(arrstation,2) Ifarrstation(0,ia)=sys.TextTolong(arrTraffic(5,iq))Then Item.SubItems(5)=arrstation(1,ia) EndIfNextForia=0ToUBound(arrclient,2)Ifarrclient(0,)=sys.TeiaxtTolong(arrTraffic(6,iq))ThenItem.SubItems(6)=arrclient(1,ia)EndIfNextItem.SubItems(7)=sys.StrToText(arrTraffic(7,iq))Item.SubIte