Visual Basic.NET - Multiplicar el dato de una fila con todos los datos de otra fila

 
Vista:
sin imagen de perfil
Val: 31
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Multiplicar el dato de una fila con todos los datos de otra fila

Publicado por Miguel (15 intervenciones) el 28/04/2020 02:35:56
Estimados,
Previos saludos, agradecería su ayuda con lo siguiente:

DataGridVie1
C0
10
11

DataGridVie2
C0
20
21

DataGridVie3
C0
10 * 20
10 * 21
11 * 20
11 * 21

Al aplicar el codigo de mas abajo solo hace la multiplicación directa y no como se muestra en el DataGridVie3

1
2
3
4
5
6
7
8
9
10
With DataGridView1
    For i = 0 To .RowCount - 1
        Dim xa, xb As Double
        xa = .Rows(i).Cells(0).Value
        For ii = 0 To DataGridView2.RowCount - 1
            xb = .Rows(ii).Cells(0).Value
        Next
        DataGridView3.Rows(i).Cells(0).Value = xa * xb
    Next
End With

De ante mano muchas gracias por su ayuda.

Saludos,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Multiplicar el dato de una fila con todos los datos de otra fila

Publicado por Phil Rob (1554 intervenciones) el 28/04/2020 08:25:12
Hola Juan,

Este codigo hace este que quieras :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    Dim C As Integer = 2 ' Numérico de la coluna para testar. Para este prueba, elijo coluna C2
    If DataGridView3.Rows.Count > 1 Then   ' escribir 0 si no ultima linea vacia en el DataGridView3
        DataGridView3.Rows.Clear()
    Else
        For RDGV1 = 0 To DataGridView1.Rows.Count - 2 ' escribir -1 si  no ultima linea vacia en el DataGridView1
            For RDGV2 = 0 To DataGridView2.Rows.Count - 2 ' escribir -1 si  no ultima linea vacia en el DataGridView2
                Dim V_DGV3 As Double
                V_DGV3 = DataGridView1.Item(C, RDGV1).Value * DataGridView2.Item(C, RDGV2).Value
                DataGridView3.Rows.Add(V_DGV3, "", "")
            Next
        Next
    End If
End Sub

Como he trabajado en el programa anterior, he hecho los cálculos con la columna C2. Este es suficiente que modificas la primera linea de la Sub.

Que tenga un buen día ...

DGVJuan
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 31
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Multiplicar el dato de una fila con todos los datos de otra fila

Publicado por Miguel (15 intervenciones) el 28/04/2020 17:36:45
Estimado Profesor, nuevamente muchas gracias por su ayuda.

Que tenga un maravilloso día.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar