Llamar último registro Datatable con varias tablas

[Monxu88]

Código PHP:

  Shared Sub Guardar_Refraccion()
        'Abrimos la conexión
        Cnn.Open()
        Dim transaccion As SqlTransaction
        Dim commando As New SqlCommand
        'Iniciamos la transacción
        transaccion = Cnn.BeginTransaction()
        commando.Connection = Cnn
        commando.Transaction = transaccion
Try
            ''      Guardamos La graduacion
            commando.CommandText = "INSERT INTO FARCHGRA(numero,fecgrad,fecnext,obsgra,aavsglod,aavsgloi,avsglod,avsgloi,ejelod,ejeloi,cillod,cilloi,esflod,esfloi,avcglod,avcgloi,dllod,dlloi,odl_ppris,oil_ppris,baselod,baseloi,dilod,diloi," & _
                                    "adilod,adiloi,allod,alloi,avbinol,aavsgcod,aavsgcoi,avsgcod,avsgcoi,ejecod,ejecoi,cilcod,cilcoi,esfcod,esfcoi,avcgcod,avcgcoi,dlcod,dlcoi,odc_ppris,oic_ppris,basecod,basecoi,dicod,dicoi,adicod," & _
                                    "adicoi,alcod,alcoi,avbinoc) VALUES ('" & num & "','" & Refracción.TxtFec.Text & "','" & Refracción.TxtFecProx.Text & "','" & Refracción.TxtObservaciones.Text & "','" & Refracción.TxtLODAVCC.Text & "','" & Refracción.TxtLOIAVCC.Text & "','" & Refracción.TxtLODAVSC.Text & "','" & Refracción.TxtLOIAVSC.Text & "','" & _
                                    Refracción.TxtLODEJE.Text & "','" & Refracción.TxtLOIEJE.Text & "','" & Refracción.TxtLODCIL.Text & "','" & Refracción.TxtLOICIL.Text & "','" & Refracción.TxtLODESF.Text & "','" & Refracción.TxtLOIESF.Text & "','" & Refracción.TxtLODAVCC2.Text & "','" & Refracción.TxtLOIAVCC2.Text & "','" & _
                                    Refracción.TxtLODDIP.Text & "','" & Refracción.TxtLOIDIP.Text & "','" & Refracción.TxtLODPRIS.Text & "','" & Refracción.TxtLOIPRIS.Text & "','" & Refracción.TxtLODBASE.Text & "','" & Refracción.TxtLOIBASE.Text & "','" & Refracción.TxtLODDIA.Text & "','" & Refracción.TxtLOIDIA.Text & "','" & Refracción.TxtLODAD.Text & "','" & _
                                    Refracción.TxtLOIAD.Text & "','" & Refracción.TxtLODACTRO.Text & "','" & Refracción.TxtLOIACTRO.Text & "','" & Refracción.TxtLABIN.Text & "','" & Refracción.TxtCODAVCC.Text & "','" & Refracción.TxtCOIAVCC.Text & "','" & Refracción.TxtCODAVSC.Text & "','" & Refracción.TxtCOIAVSC.Text & "','" & Refracción.TxtCODEJE.Text & "','" & _
                                    Refracción.TxtCOIEJE.Text & "','" & Refracción.TxtCODCIL.Text & "','" & Refracción.TxtCOICIL.Text & "','" & Refracción.TxtCODESF.Text & "','" & Refracción.TxtCOIESF.Text & "','" & Refracción.TxtCODAVCC2.Text & "','" & Refracción.TxtCOIAVCC2.Text & "','" & Refracción.TxtCODDIP.Text & "','" & Refracción.TxtCOIDIP.Text & "','" & _
                                    Refracción.TxtCODPRIS.Text & "','" & Refracción.TxtCOIPRIS.Text & "','" & Refracción.TxtCODBASE.Text & "','" & Refracción.TxtCOIBASE.Text & "','" & Refracción.TxtCODDIA.Text & "','" & Refracción.TxtCOIDIA.Text & "','" & Refracción.TxtCODAD.Text & "','" & Refracción.TxtCOIAD.Text & "','" & Refracción.TxtCODACTRO.Text & "','" & _
                                    Refracción.TxtCOIACTRO.Text & "','" & Refracción.TxtCABIN.Text & "')"
            commando.ExecuteNonQuery()
            'Finalizamos la transacción
            transaccion.Commit()
            Cnn.Close()
            CargaGraduaciones()
            num2 = Convert.ToInt16(C_Refraccion.dtrefrac.Rows(0)("numero2"))
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
End Sub
Shared Sub Guardar_ObjetivaInicial()
Try
            '       Insertar objetiva e Inicial
Dim query As String = "INSERT INTO FARCHGRA22(numero2,actuejeod,actuejeoi,actucilod,actuciloi,actuesfod,actuesfoi,actuadic,actuavod,actuavoi,avscod,avscoi,rabinocula,rejeod,rejeoi,rcilod,rciloi,resfod,resfoi,ravod,ravoi,refejeod,refejeoi,refcilod,refciloi,refesfod,refesfoi,queraod_h,queraoi_h,queraod_v,queraoi_v,queraod_hp,queraoi_hp,queraod_vp,queraoi_vp,queraod_ej,queraoi_ej)" & _
                                  "VALUES ('" & num2 & "','" & Refracción.TxtCorEjeOD.Text & "','" & Refracción.TxtCorEjeOI.Text & "','" & Refracción.TxtCorCilOD.Text & "','" & Refracción.TxtCorCilOI.Text & "','" & Refracción.TxtCorEsfOD.Text & "','" & Refracción.TxtCorEsfOI.Text & "','" & Refracción.TxtCorAdi.Text & "','" & Refracción.TxtCorAvOD.Text & "','" & Refracción.TxtCorAvOI.Text & "','" & _
                                  Refracción.TxtCorAvscOD.Text & "','" & Refracción.TxtCorAvscOI.Text & "','" & Refracción.TxtCorAVB.Text & "','" & Refracción.TxtRetEjeOD.Text & "','" & Refracción.TxtRetEjeOI.Text & "','" & Refracción.TxtRetCilOD.Text & "','" & Refracción.TxtRetCilOI.Text & "','" & Refracción.TxtRetEsfOD.Text & "','" & Refracción.TxtRetEsfOI.Text & "','" & Refracción.TxtRetAvOD.Text & _
"','" & Refracción.TxtRetAvOI.Text & "','" & Refracción.TxtObjEjeOD.Text & "','" & Refracción.TxtObjEjeOI.Text & "','" & Refracción.TxtObjCilOD.Text & "','" & Refracción.TxtObjCilOI.Text & "','" & Refracción.TxtObjEsfOD.Text & "','" & Refracción.TxtObjEsfOI.Text & "','" & Refracción.TxtQueMMOD.Text & "','" & Refracción.TxtQueMMOI.Text & "','" & Refracción.TxtQueMM2OD.Text & _
"','" & Refracción.TxtQueMM2OI.Text & "','" & Refracción.TxtQuePotOD.Text & "','" & Refracción.TxtQuePotOI.Text & "','" & Refracción.TxtQuePot2OD.Text & "','" & Refracción.TxtQuePot2OI.Text & "','" & Refracción.TxtQueEjeOD.Text & "','" & Refracción.TxtQueEjeOI.Text & "')"
            MsgBox(num2)
            Cnn.Open()
            cmd = New SqlCommand(query, Cnn)
            cmd.ExecuteNonQuery()
            Cnn.Close()
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
End Sub 
   

Primero guardo en la primera tabla, el campo numero2 que es autonumerico.
Y luego hago el otro insert en la segunda tabla donde tambien tengo el campo numero2.

Hago el primer insert, luego cargo los datos en el datatable con este select:

Código PHP:

   Dim sql As String = "SELECT * FROM farchgra far LEFT JOIN farchgra22 far22 ON far.numero2 = far22.numero2 WHERE far.numero = @NumCli ORDER BY far.FECGRAD DESC, far.numero2 DESC" 
   

Y ahora cargo numero2 en la variable num2 para el segundo insert.


En lugar de ponerme el último registro introducido en numero2, me pone el anterior, lo que sospecho es que no le de tiempo a introducirlo y por eso el último no es el recien introducido.