Hola tengo un codigo que no esta generando lo que deberia, por lo que lo revise ejecutandolo paso a paso en debugging y me di cuenta que en esta parte:
Código:
sql = "SELECT RECIPE_RECIPE.NDB_No_Con, RECIPE_RECIPE.Recipe_Can FROM RECIPE_RECIPE WHERE RECIPE_RECIPE.NDB_No_Recipe = " & Codigo
Dim cmd3 As SqlCommand = New SqlCommand(sql, conexionSqlEx)
Dim rs3 As SqlDataReader = cmd3.ExecuteReader()
While rs3.Read
'POR CADA SUBRECETA
Dim CodigoSubReceta As String = rs3.GetOrdinal("NDB_No_Con")
Dim CanSubReceta As Decimal = rs3.GetOrdinal("Recipe_Can")
'Codigo y cantidad de subreceta
CodigoSubReceta = rs3.GetString(CodigoSubReceta)
CanSubReceta = rs3.GetDecimal(CanSubReceta)
'OBTENGO LOS VALORES NUTRICIONALES DE LAS SUBRECETAS
Dim GramosSubReceta As Decimal = (CanSubReceta * 100) / CanTotalIngrediente
Dim sql4 As String = "SELECT RECIPE_NUT_DATA.NDB_No, RECIPE_NUT_DATA.NutrVal FROM RECIPE_NUT_DATA WHERE RECIPE_NUT_DATA.NDB_No = " & CodigoSubReceta
Dim cmd4 As SqlCommand = New SqlCommand(sql4, conexionSqlEx)
Dim rs4 As SqlDataReader = cmd4.ExecuteReader()
'MsgBox(CodigoSubReceta)
End While
Cuando llega a la linea que dice:
Dim GramosSubReceta As Decimal = (CanSubReceta * 100) / CanTotalIngrediente
Se va a otra form que tengo y ejecuta:
Private Sub MyDataGridView1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles MyDataGridView1.CellDoubleClick
y evidentemente ahí se va a las pailas ya que no continua ejecutando el código que debería.
Alguna idea porque se comporta así?