在用類似于datagrid的控件(或別的控件)時,如何實現(xiàn)明細數(shù)據(jù)下同時出現(xiàn)一筆匯總數(shù)據(jù),如下列數(shù)據(jù)同時顯示:s001 5 5 4s002 4 3 5s003 1 5 4---- 10 13 13

熱心網(wǎng)友

請參考以下代碼，在VB6中能達到目的。注意Command1_Click和Form_Unload事件代碼必須存在，（而且Command1的TabIndex屬性設0）否則匯總數(shù)據(jù)一行會存在于數(shù)據(jù)庫表中，不然再打開表匯總數(shù)據(jù)失真。其中DataGrid1的屬性AllowAddnew;AllowArrows;AllowDelete設為True,AllowUpdate設為False。較好的用法是用2個ADO控件和2個DATAGRID控件，這樣不會對數(shù)據(jù)庫表產(chǎn)生修改。Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc1。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=C:\ldgz\ b;Persist Security Info=False"Adodc1。RecordSource = "select * from jishijilu"Adodc1。RefreshDataGrid1。RefreshAdodc2。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=C:\ldgz\ b;Persist Security Info=False"Adodc2。RecordSource = "select sum(shuju1) as hj1,sum(shuju2) as hj2,sum(shuju3) as hj3,sum(shuju4) as hj4, sum(shuju5) as hj5 " & _"from jishijilu"Adodc2。RefreshAdodc1。Recordset。AddNewAdodc1。Recordset(0) = "合計"Adodc1。Recordset(1) = Adodc1。Recordset。RecordCount - 1 & "項"Adodc1。Recordset(2) = Adodc2。Recordset(0)Adodc1。Recordset(3) = Adodc2。Recordset(1)Adodc1。Recordset(4) = Adodc2。Recordset(2)Adodc1。Recordset(5) = Adodc2。Recordset(3)Adodc1。Recordset(6) = Adodc2。Recordset(4)Adodc1。Recordset(7) = Adodc2。Recordset(0)Adodc1。Recordset(8) = Adodc2。Recordset(0)Adodc1。Recordset(9) = Adodc2。Recordset(0)End SubPrivate Sub Form_Unload(Cancel As Integer)Adodc1。Recordset。MoveLastAdodc1。Recordset。DeleteAdodc1。Recordset。UpdateEnd Sub。

熱心網(wǎng)友

回答的很好！