hola
ya encontre como sumarlos... en vez de hacer esto..
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String
For i = 0 To DataGrid1.ApproxCount - 1
Datos = CStr(Datos & DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(i)) & vbNewLine)
DoEvents
Next
Text2.Text = Datos
End Sub
puedo hacer esto...
Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))
Text2.Text = Datos + datos2
y con esto ya logre sumarlos.. pero alguien sabe como puedo hacer que esto...
Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))
se genere automaticamente .. y esto tambien..
Text2.Text = Datos + datos2
porke hacerlo manualmente seria demasiado codigo... tendria que hacer esto..
Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))
datos3 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(2)))
datos4 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(3)))
Datos5 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(4)))
Datos6 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(5)))
Datos7 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(6)))
etc...
Text2.Text = Datos + datos2 + datos3 + datos4 + Datos5 + Datos6 + Datos7... etc
hay alguna funcion de for i ... que sea parecida a la de C++ donde si coloco
for ( int i=0; i<40; i++)
se genera automaticamente alguna funcion las 40 veces y resguarda la informacion ingresada...
lo que pasa es que ahora quiero hacer algun codigo para no tener que colocar tanto codigo repetitivo en el programa como lo mostre arriba.. sino algun codigo que me genere eso automaticamente..
espero alguien sepa
espero su respuesta