如何使用 vb 6.0 计算账户余额并访问 dbase 示例:
January 2000 2500.00
Febuary 2000 2300.00
当用户选择 2000 年 1 月时,它将显示 2500.00,当用户选择 2000 年 2 月时,它将显示 4800.00。
希望任何人都可以帮助我谢谢
Dim TOTAL, FMACT As Double
TOTAL = 0
Set rs2 = New ADODB.Recordset
With rs2
.Open "SELECT * FROM SW WHERE dtaYear=" & cmbYear.Text & " ", Con, 1, 2
Let FMACT = rs2![SWACTFM]
If .RecordCount > 0 Then
TOTAL = TOTAL + FMACT
.MoveFirst
Do While rs2.EOF = True
.MoveNext
ExcelWS.Cells(6, 7) = TOTAL
Loop
End If
.Close
Set rs2 = Nothing
End With