 |
รบกวนพี่ๆช่วยดูโค้ดสรุปรายรับ-รายจ่ายประจำีปีให้หน่อยค่ะ ทำมาหลายวันแล้วค่ะ (VB6&Mysql) |
| |
 |
|
|
 |
 |
|
อยากให้ ข้อมูลใน Grid แสดงที่แสดงข้อมูลสรุปรายรับ-รายจ่ายประจำปี ออกมาเป็นแบบข้างล่างนี้ โดยแยก ตาราง รายรับ กะรายจ่ายค่ะ
Grid รายรับ
-------เดือน/ปี-----------------------------จำนวนเงิน-------------
-----------------------------------------------------------------------
มกราคม/2010---------------------------12,087.00---------------
กุมภาพันธ์/2010-------------------------98,873.00---------------
มีนาคม/2010------------------------------3,878.00---------------
เมษายน/2010---------------------------49,980.00---------------
พฤษภาคม/2010-------------------------25,980.00---------------
มิถุนายน/2010-----------------------------8,349.00--------------
กรกฎาคม/2010--------------------------12,900.00--------------
สิงหาคม/2010---------------------------56,340.00---------------
กันยายน/2010---------------------------21,700.00 --------------
ตุลาคม/2010------------------------------9,700.00--------------
พฤศจิกายน/2010------------------------10,782.00---------------
ธันวาคท/2010---------------------------12,000.00----------------
------------------------------------------------------------------------
ส่วนโค้ด ใน vb6
*************************************************************
Private Sub ReceiveCompute()
Dim Str, sY, sM, Tm As String
Dim sqlrec As String
Dim sqlCust, mon As String
Dim i, k, M As Integer
Dim sumprice1 As Currency
i = 1
sqlrec = "select substring(BILL_DATE,'7') As bill_date,SUM(BILL_TOTALNET) As bill_sum"
sqlrec = sqlrec & " From bill"
sqlrec = sqlrec & " WHERE YEAR(BILL_DATE) = '" & CmbYear.text & "'"
sqlrec = sqlrec & " GROUP BY substring(BILL_DATE,'7') "
sqlrec = sqlrec & " ORDER BY 1"
With rsrec
If .State = adStateOpen Then .close
.ActiveConnection = SetDSNConnection
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Open sqlrec
If rsrec.BOF = False Then
rsrec.MoveFirst
Do
Str = DateAdd( rsrec!bill_date) ' ส่วนตรงนี้ไม่รู้จะใส่ค่าอะไรให้แสดงในรูปแบบที่ต้องการค่ะ
With MSF_IN
.TextMatrix(i, 0) = i & "."
.TextMatrix(i, 1) = Format(Str, "mmmm/yyyy")
.TextMatrix(i, 2) = Format(rsrec!bill_sum, "#,##0.00")
.Rows = .Rows + 1
End With
i = i + 1
rsrec.MoveNext
Loop Until rsrec.EOF = True
End If
End With
With MSF_IN
For k = 1 To MSF_IN.Rows - 2
sumprice1 = sumprice1 + Format(.TextMatrix(k, 2), "#,##0.00")
Next
End With
Label7.Caption = Format(sumprice1, "#,##0.00")
End Sub
************************************************************
ตรงตัวอักษรสีแดง Str = DateAdd( rsrec!bill_date) ต้องใส่ค่าอะไรคะ
มันถึงจะแสดงที่คอลัมภ์ เดือน/ปี เป็น มกราคม/2010
Tag : MySQL
|
|
|
 |
 |
 |
 |
| Date :
2011-02-20 10:40:47 |
By :
pang |
View :
1269 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
bill_date ฟิวนี้เก็บเป็นอะไรครับ ไม่งั้นก้อเขียนฟังชั่นมา convert ให้อยุ่ในรุปแบบที่ราอยากได้สิครับ
|
| |
|
|
| |
| Date :
2011-02-24 21:50:20 |
By :
Sek-Artdrinker |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
