Private Sub 查询_Click()
 Dim QGJTCGD As New ADODB.Recordset
         QGJTCGD.CursorLocation = adUseClient
         QGJTCGD.CursorType = adOpenKeyset
         QGJTCGD.LockType = adLockReadOnly
         TCGDA = "select 序号,sum(实收金额) as  实收金额,count(*) as 品种数 from 挂单 group by 序号"
         QGJTCGD.Open TCGDA, conn
         If QGJTCGD.RecordCount = 0 Then
         MsgBox "系统中没有挂单，按<确定>继续！！"
                   Exit Sub
         End If
           ListView1.ListItems.Clear
 
            ListView1.view = 3
       Do While Not QGJTCGD.EOF
        
           Set LSTAC = ListView1.ListItems.Add(, "C" & QGJTCGD("序号") & xixAA, QGJTCGD("序号"), "a1")
          Dim lngColGD  As Long
          Dim varValueGD As Variant
         
       For lngColGD = 2 To ListView1.ColumnHeaders.Count
             
                varValueGD = QGJTCGD(ListView1.ColumnHeaders(lngColGD).Text).Value
              If lngColGDgd = 2 Then
              LSTAC.SubItems(lngColGD - 1) = IIf(IsNull(varValueGD), "", Format(varValueGD, "0.00"))
             Else
               LSTAC.SubItems(lngColGD - 1) = IIf(IsNull(varValueGD), "", varValueGD)
              End If
             Next
           QGJTCGD.MoveNext
           xixAA = xixAA + 1
          Loop
        
         
          ListView1.Left = (frmpos.ScaleWidth - ListView1.Width) / 2
          ListView1.Visible = True
          ListView1.SetFocus
          

End Sub