SoloCodigo

Saludos amigos cybernautas    le mando un gran saludo desde mi pais Panamà.
Miren necesito de su ayuda les comento mi problema. De ante mano pido disculpas si esto no va aqui y todo ese protocolo pero la verdad es mi primera vez posteando en el site, ademas estoy nesecitando de ayuda de los que sepan de esto  

Soy estudiante de Ingenieria Civil aca nos ponen a programar en vb6 y bueno para serles sinceros se hacer cosas muy muy sencillas... etc etc. al grano estoy haciendo un proyecto de visual que resuelve una cercha o una estructura como sea   .

La cuestion es que tengo varios formularios y muchas msflexgrids   sehh bueno la cuestion es que tengo
 que mandar datos numericos de un msfA a el msfB dejeme decirles que intentado varias formas y nada me manda error o simplemente me llena el otro msfgrid con cero o me los deja sin datos.
eso por un lado por otro lado como en un mismo msfgrid poder hacer operaciones con datos de una columna para mostrar en una al lado?
cualquier ayuda es bienvenida estare aqui esperando su ayuda.

saludos
ahi les dejo una vista

 

'numero de columna y numero de filas del flexgrid
 
 frmdatos3.msf3.Rows = 4 * n + 3
 frmdatos3.msf3.Cols = 3
 
  For TR = 0 To 2
    frmdatos3.msf3.ColWidth(TR) = 1600
    frmdatos3.msf3.ColAlignment(TR) = 4
  Next
 
kl = 0
For i1 = 1 To 2 * n + 1
frmdatos3.msf3.TextMatrix(i1 + kl, 0) = " U " & i1
frmdatos3.msf3.TextMatrix(i1 + kl + 1, 0) = " V " & i1
kl = kl + 1
Next



    FS = 1
 For q1 = 1 To 2 * (2 * n + 1)
    For he = 1 To 2
    ' aqui esta el problema nose si se hace asi msfuerzas es el  msfgrid del otro formulario
       Carga(q1) = frmdatos2.msFuerzas.TextMatrix(FS, he)    
       frmdatos2.msFuerzas.CellAlignment = flexAlignCenterCenter  
       
       q1 = q1 + 1
    Next he
     q1 = q1 - 1
     FS = FS + 1
 Next q1
   
 For q14 = 1 To 2 * (2 * n + 1)
  frmdatos3.msf3.TextMatrix(q14, 4) = Carga(q14)
  frmdatos3.msf3.CellAlignment = flexAlignCenterCenter
 Next q14
End Sub

 saludos amigos foreros les mando un saludo
 
seh ya resolvi el problema gracias de todos modos ahi dejo la info de una de las tantas me imagino yo formas para sumar datos numericos en un mismo msflexgrid lo dejo como aporte a los que en algun momento tengan la duda o simplemente no tengan alguien que les ayude...

son dos formularios dos grid y varios botones...
primer formulario

Private Sub Command1_Click()
'para salir de la corrida
End
End Sub

Private Sub Command2_Click()
'para cambiar de un form a otro
Form1.Hide
Form2.Show
End Sub

Private Sub Command3_Click()
'dimensionando variables C,A,B son vectores

Dim I As Integer, C(4) As Single, A(4) As Single, B(4) As Single

'ciclo que lee los datos del msflexgrid y los manda a los
'vectores para luego sumarlos

For I = 1 To 4
'vectores almacenadores de datos numericos en este caso
A(I) = ms1.TextMatrix(I, 1)
B(I) = ms1.TextMatrix(I, 2)
'vector de la suma
C(I) = A(I) + B(I)
'aqui se muestra los resultados de la suma
ms1.TextMatrix(I, 3) = C(I)
Next I
End Sub

Private Sub Form_Load()
Dim I As Integer, J As Integer
'dandole el formato al msflexgrid

ms1.Rows = 5
ms1.Cols = 4
ms1.TextMatrix(0, 0) = "Nº"
ms1.TextMatrix(0, 1) = "A"
ms1.TextMatrix(0, 2) = "B"
ms1.TextMatrix(0, 3) = "C"

For I = 1 To 4
For J = 1 To 2

ms1.TextMatrix(I, 0) = "F" & I
ms1.TextMatrix(I, J) = 0

Next J
Next I


segundo formulario

Private Sub Command1_Click()
'dimensionando las variables
Dim I As Integer, J As Integer, D(8) As Single, acum As Integer
'ciclo donde se llaman los datos del msflexgrid A

For I = 1 To 8

'se tienen estos if ya que se pondran en una sola columna
If I <= 4 Then

'almacenando los datos en el msflexgridB de la primera col
D(I) = Form1.ms1.TextMatrix(I, 1)
ms2.TextMatrix(I, 1) = D(I)

End If

If I > 4 Then
'almacenando los datos en el msflexgridB de la segunda col
D(I) = Form1.ms1.TextMatrix(I - 4, 2)
ms2.TextMatrix(I, 1) = D(I)

End If



Next I


End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Form2.Hide
Form1.Show
End Sub

Private Sub Form_Load()
'dandole el formato al msflexgrid
Dim I As Integer
Dim J As Integer

ms2.Rows = 9
ms2.Cols = 2
ms2.TextMatrix(0, 0) = "Nº"
ms2.TextMatrix(0, 1) = "D"

For I = 1 To 8
ms2.TextMatrix(I, 0) = "F" & I

Next I

End Sub

saludos y gracias  

No, el tuyo es mejor usando TextMatrix  

Saludos