-
I have made some code that adds vals of a dbgrids text but the code is slow it adds 15 diff. totals. can someone recommend a faster way to do this, my code i used is below.
Form1.Data1.Recordset.MoveFirst
For z = 1 To Data1.Recordset.RecordCount
ins = ins + Val(DBGrid1.Columns(6).Text)
lan = lan + Val(DBGrid1.Columns(7).Text)
oth = oth + Val(DBGrid1.Columns(8).Text)
sel = sel + Val(DBGrid1.Columns(9).Text)
mel = mel + Val(DBGrid1.Columns(10).Text)
cct = cct + Val(DBGrid1.Columns(11).Text)
dayt = dayt + Val(DBGrid1.Columns(12).Text)
ngh = ngh + Val(DBGrid1.Columns(13).Text)
acti = acti + Val(DBGrid1.Columns(14).Text)
simi = simi + Val(DBGrid1.Columns(15).Text)
sim = sim + Val(DBGrid1.Columns(16).Text)
dul = dul + Val(DBGrid1.Columns(17).Text)
pic = pic + Val(DBGrid1.Columns(18).Text)
solo = solo + Val(DBGrid1.Columns(19).Text)
hr = hr + Val(DBGrid1.Columns(22).Text)
Data1.Recordset.MoveNext
Next z
_____________
Thank you,
Jeremy
------------------
[email protected]
-
use the SUM function in SQL
Select SUM(MyFieldName) from Mytable
msgbox rs.fields(0).value
[rs = recordset object]
Tom
