|
|
Postada em 28/09/2005 11:12 hs
COMO TOTALIZAR UM COLUNA DE UM DBGRID ? PODE SER EM UMA LABEL OU TEXTBOX |
|
|
|
|
|
|
|
Postada em 28/09/2005 11:48 hs
pode ser por FOR exemplo: dim total as double for t=1 to dbgrid.VisibleRows ' quantidade de linhas do dbgrid dbgrid.row=t dbgrid.col=5 ' coluna em que esta o valor a ser somado total = total + cdbl("0" & dbgid) ' evita se o campo estiver vazio de erro next t |
|
|
|
|
|
Postada em 28/09/2005 13:32 hs
Obrigado Daniel, este comando é colocado no Private Sub do Form Load ou pode ser do text box mesmo ? |
|
|
|
|
|
Postada em 28/09/2005 14:07 hs
Se voce conectou o objeto data por comando exemplo: data1.DatabaseName="c:ase.mdb" ' conecção com a mdb data1.recordsource = "clientes" ' conecção com a tabela data1.refresh voce pode colocar a instrução que eu te passei após esse grupo de intrução. Se voce conectou pela propriedade do objeto data pode ser colocado do form load espero ter ajudado Daniel |
|
|
|
|
|
Postada em 29/09/2005 07:18 hs
Olá Daniel, fiz o código conforme sua instrução e a seguinte mensagem está aparecendo no momento da execução: INVALID ROW NUMBER e a linha do erro é: dbgrid.row=t |
|
|
|
|
|
Postada em 29/09/2005 11:18 hs
Companheiro não é mais facil criar uma QUERY totalizando o campo e ai sim transferi-la para uma LABEL ou TEXTBOX ?! A Vantagem disto é que sempre estara atualizado o campo TOTAL e você não precisa ficar varrendo todo o GRID para efetuar o calculo....Se você tera poucos registros nesta tabela tudo bem, mas se não...logo logo você sentira uma lentidão quando o GRID for mostrar as informações na tela...
SELECT SUM([CAMPO_VALOR]) AS TOTAL from [Tabela] ALEXANDRE COSTA ARTSOFTSYSTEMS |
|
|
|
