◎說明
1. 明細Datagrid2,ADODC2(from Quotation)  aduseClient,adOpenStatic,adLockOptimistic

2. 統計的ADODC6
(SELECT SUM(QUOTATION.UNITCUFT * QUOTATION.QUNT) AS 總才, SUM(QUOTATION.UNITPRICE * QUOTATION.QUNT) AS 總金額,
SUM(ITEM.GW) AS 總重, QUOTATION.PI_NUMBER
FROM QUOTATION, ITEM
WHERE QUOTATION.CODE = ITEM.CODE
GROUP BY QUOTATION.PI_NUMBER)      ps.ITEM為產品資料檔

◎程式:
____________________________________________________________
1. Private sub Datagrid2_onAddnew()Adodc2.Recordset.AddNew
DataGrid2.Columns("pi_number") = P
  DataGrid2.Columns("cutminit") = C
 End Sub
____________________________________________________________
'CODE(產品編號)有設一個Button
2. Private Sub DataGrid2_ButtonClick()
Frame4.Visible = True 'Frame4中有Datagrid3(ADODC3,from
                           Item)
End Sub
____________________________________________________________
3.Private Sub DataGrid3_SelChange(Cancel As Integer)
DataGrid2.Columns("PI_NUMBER") = txtPI_NUMBER.TEXT
  DataGrid2.Columns("CUTMINIT") = txtCUTMINIT.TEXT

DataGrid2.Columns("CODE") = Trim(DataGrid3.Columns("CODE") & "")
DataGrid2.Columns("CCODE") = Trim(DataGrid3.Columns("CCODE") & "")
DataGrid2.Columns("maker") = Trim(DataGrid3.Columns("maker") & "")
DataGrid2.Columns("packing") = Trim(DataGrid3.Columns("packing") & "")
DataGrid2.Columns("DESC") = Trim(DataGrid3.Columns("DESC") & "")
Adodc6.Recordset.Close
SQL6 = "SELECT SUM(QUOTATION.UNITCUFT * QUOTATION.QUNT) AS 總才, SUM(QUOTATION.UNITPRICE * QUOTATION.QUNT) AS 總金額, SUM(ITEM.GW) AS 總重, QUOTATION.PI_NUMBER From QUOTATION, Item Where QUOTATION.CODE = Item.CODE AND QUOTATION.PI_NUMBER ='"
SQL6 = SQL6 & txtPI_NUMBER.Text & "'"
SQL6 = SQL6 & "GROUP BY QUOTATION.PI_NUMBER"
Adodc6.Recordset.Open SQL6
Adodc6.Recordset.Requery
CM_UPDATE_Click
End Sub
____________________________________________________________
4. Private Sub CM_UPDATE_Click() '**儲存
Adodc2.Recordset.Update
Adodc2.Recordset.Close
ADODC2SQL = "SELECT *,UNITPRICE * QUNT AS  t_money,UNITCUFT * QUNT AS t_cuft FROM QUOTATION WHERE PI_NUMBER='"
ADODC2SQL = ADODC2SQL & P & "'"
ADODC2SQL = ADODC2SQL & " ORDER BY CODE "
Adodc2.Recordset.Open ADODC2SQL
Adodc2.Recordset.Requery
DataGrid2.Refresh
Adodc6.Recordset.Close
SQL6 = "SELECT SUM(QUOTATION.UNITCUFT * QUOTATION.QUNT) AS 總才, SUM(QUOTATION.UNITPRICE * QUOTATION.QUNT) AS 總金額, SUM(ITEM.GW) AS 總重, QUOTATION.PI_NUMBER From QUOTATION, Item Where QUOTATION.CODE = Item.CODE AND QUOTATION.PI_NUMBER ='"
SQL6 = SQL6 & P & "'"
SQL6 = SQL6 & "GROUP BY QUOTATION.PI_NUMBER"
Adodc6.Recordset.Open SQL6
Adodc6.Recordset.Requery
End If
End Sub
____________________________________________________________
§我現在遇到的問題是在修改了記錄,須將datagrid2移到修改的那一筆,再儲存,才會產生最新的統計資料,而若在不是修改的那一筆按儲存,便不會更新資料,要如何解決呢?
§and想請問一下,如何在使用者移動所在列時就自動計算,目前的總金額,總重,總才,而總重是在選了或修改商品就決定了。
最後,thanks,能夠耐心看完這篇問題的人,不過我已盡我所能讓各位不會眼花了,thanks.
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()