我用winsock传数据总是会少几条数据,是为什么啊rs1.Open "select * from data_hdgl where 运单编号='" & Temp1 & "'", AnalyzeConn, 1, 3If rs1.RecordCount <> 0 Then
   while not rs1.eof
      For FieldNum = 1 To rs1.Fields.Count - 5
         TempStr = TempStr & Encode(FixNull(rs1(FieldNum))) & Chr(3)
      Next
         Wsk(wskIndex).SendData "searchresult" & Chr(2) & Encode(tType) & Chr(2) & TempStr & Chr(2) & Encode("回单信息") & Chr(2) & Temp1 & Chr(2) & Chr(8)           
      TempStr = ""
      rs1.movenext
   wend
End If
rs1.Close