Buenas tardes
Estoy haciendo mis primeros codigos en VB.NET asi quesoy nuevo en esto.
Agraceceré puedan orientarme con lo siguiente:
Tengo un datagridview al cual se llena con datos procecentes de una hoja de excel y automaticamente genera las columnas MD Y TVD.
Una vez que estos datos estan cargados en el datagridview, realizo las operaciones matematicas : Desvo y Desplazar, utilizando los datos
obtenidos MD Y TVD. Los valores calculados y almacenados en las variables (Desvo y Desplazar) necesito mostrarlos ahora en las columnas DESV y DESPLAZAR RESPECTIVAMENTE. ES decir:
los valores calculados y almacenados en la variable Desvo ------se deben mostrar en la columna DESV
los valores calculados y almacenados en la variable Desplazar ------se deben mostrar en la columna DESPLAZAR
El problema que se me ha presentado es que al ejecutar esto, en el datagridview solo me muestra las columnas MD Y TVD , "logico"
pero las coolumnas DESV Y DESPLAZAR estan en blanco,
Ejemplo:
MD TVD DESV DESPLAZAR
30.48 30.48
60.96 60.96
91.44 91.441
121.92 121.91
182.88 182.88
El codigo que he estado derrollando es el siguiente:
Private Sub ButtonFohijo1c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFohijo1c.Click
With DataGridView1
.DataSource.Columns.Add("DESV")
.DataSource.Columns.Add("DESPLAZAR")
'¡¡¡CODIGO QUE OBTIENE LA DESVIACION DE DOS COULUMNAS DE DATOS......MD Y TVD
Try
Dim Dgv As Integer = Me.DataGridView1.Rows.Count
Dim i As Integer
For i = 0 To Dgv - 1
Dim Desvo As Double = Math.Acos((Convert.ToDouble(Me.DataGridView1(1, i + 1).Value) - Convert.ToDouble(Me.DataGridView1(1, i).Value)) / (Convert.ToDouble(Me.DataGridView1(0, i + 1).Value) - Convert.ToDouble(Me.DataGridView1(0, i).Value))) / 3.1416 * 180
Me.DataGridView1(2, i + 1).Value = Desvo.ToString("N2")
¡¡CODIGO QUE OBTIENE el desplazamiento DE DATOS.....apatir de MD Y TVD
Dim Desplazar As Double = Convert.ToDouble(Me.DataGridView1(0, i + 1).Value) - Convert.ToDouble(Me.DataGridView1(0, i).Value) * Math.Sin((Convert.ToDouble(Me.DataGridView1(2, i + 1).Value)) / 180 * 3.1416) + Convert.ToDouble(Me.DataGridView1(3, i))
Me.DataGridView1(3, i + 1).Value = Desplazar.ToString("N2")
Next i
Catch ex As Exception
End Try
End With
End Sub