code.txt

来自「This code will sum-up the value of a lis」· 文本 代码 · 共 50 行

Dim scon As ADODB.Connection
Dim srec As ADODB.Recordset
Dim slist As ListItem
Dim sum As Double
Private Sub Command2_Click()
Dim sql  As String
Dim x
sum = 0

For x = 1 To ListView1.ListItems.Count

sum = sum + CDbl(ListView1.ListItems.Item(x).SubItems(2))

     sql = "insert into salary2 (idno,name,salary) values "
     sql = sql & "(" & CLng(ListView1.ListItems.Item(x)) & ",'"
     sql = sql & ListView1.ListItems.Item(x).SubItems(1) & "',"
     sql = sql & CDbl(ListView1.ListItems.Item(x).SubItems(2)) & ")"
     
      scon.Execute sql
Next x

   Set slist = ListView1.ListItems.Add(, , " ")
   Set slist = ListView1.ListItems.Add(, , "")
        slist.SubItems(1) = "Total is==>               P"
        slist.SubItems(2) = Format(sum, "##,##0.00")
        
        MsgBox "save record"

End Sub

Private Sub Form_Load()
  Set scon = New ADODB.Connection
    scon.Open "Provider=microsoft.jet.oledb.4.0;" & _
    "Data source=" & App.Path & "\sum.mdb"
    
    displayrec

End Sub
Sub displayrec()
  Set srec = New ADODB.Recordset
    srec.Open "select * from salary", scon, adOpenDynamic, adLockPessimistic
       If srec.EOF Then Exit Sub
         Do While Not srec.EOF
            Set slist = ListView1.ListItems.Add(, , srec(0))
                  slist.SubItems(1) = srec!Name
                  slist.SubItems(2) = Format(srec!salary, "##,##0.00")
                 srec.MoveNext
                 Loop
End Sub