Mschart y mshflexgrid
Hola
Tengo problemas con estos dos elementos de vb;
Necesito graficar datos de 3 mshflexgrid, todas tienen una columna igual de "periodo" y cada una tiene otra columna de "demandas" obviamente con valores diferentes; necesito hacer una gráfica de periodos vs demandas (las 3 columnas de demandas simultáneamente)
La segunda pregunta es:
¿Cómo hago para operar y pasar datos de un mshflexgrid de un formulario 1 a otro mshflexgrid de un formulario 2?
Tengo problemas con estos dos elementos de vb;
Necesito graficar datos de 3 mshflexgrid, todas tienen una columna igual de "periodo" y cada una tiene otra columna de "demandas" obviamente con valores diferentes; necesito hacer una gráfica de periodos vs demandas (las 3 columnas de demandas simultáneamente)
La segunda pregunta es:
¿Cómo hago para operar y pasar datos de un mshflexgrid de un formulario 1 a otro mshflexgrid de un formulario 2?
1 respuesta
Respuesta de orande
1
No se exactamente si esto es lo que quieres:
Private Sub pCambiarDatos()
Dim iRow As Integer, iCol As Integer
Dim sRow As String
On Error GoTo TratarError
Form2.MSHFlexGrid2.Clear
Form2.MSHFlexGrid2.Rows = 0
Form2.MSHFlexGrid2.FixedRows = 0
Form2.MSHFlexGrid2.Cols = Form1.MSHFlexGrid1.Cols - 1
Form2.MSHFlexGrid2.FixedCols = Form1.MSHFlexGrid1.FixedCols
For iRow = 0 To Form1.MSHFlexGrid1.Rows - Form1.MSHFlexGrid1.FixedRows
sRow = Empty
For iCol = 0 To Form1.MSHFlexGrid1.Cols - Form1.MSHFlexGrid1.FixedCols
sRow = sRow & Form1.MSHFlexGrid1.TextMatrix(iRow, iCol) & vbTab
Next iCol
Form2.MSHFlexGrid2.AddItem sRow
Next iRow
Form2.MSHFlexGrid2.FixedRows = Form1.MSHFlexGrid1.FixedRows
TratarError:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, Err.Source
Err.Clear
End If
End Sub
Private Sub pCambiarDatos()
Dim iRow As Integer, iCol As Integer
Dim sRow As String
On Error GoTo TratarError
Form2.MSHFlexGrid2.Clear
Form2.MSHFlexGrid2.Rows = 0
Form2.MSHFlexGrid2.FixedRows = 0
Form2.MSHFlexGrid2.Cols = Form1.MSHFlexGrid1.Cols - 1
Form2.MSHFlexGrid2.FixedCols = Form1.MSHFlexGrid1.FixedCols
For iRow = 0 To Form1.MSHFlexGrid1.Rows - Form1.MSHFlexGrid1.FixedRows
sRow = Empty
For iCol = 0 To Form1.MSHFlexGrid1.Cols - Form1.MSHFlexGrid1.FixedCols
sRow = sRow & Form1.MSHFlexGrid1.TextMatrix(iRow, iCol) & vbTab
Next iCol
Form2.MSHFlexGrid2.AddItem sRow
Next iRow
Form2.MSHFlexGrid2.FixedRows = Form1.MSHFlexGrid1.FixedRows
TratarError:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, Err.Source
Err.Clear
End If
End Sub
