error an unhandled exception has occurred vb.net

[Houssem12]

hello members
I have a program that updates the stock
during execution put this error that i did not name the source or how i solve it this error gives an error photo



voicie mon code

If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()




Dim cmd As New SqlCommand("select Codearticle,Numseq,Qte,PrixUnitaire,PrixRevient,Designation from DetailReceptionFrs where Numero='ST200036' order by numseq", cn)
'With cmd.Parameters
' .Add("@Numero", SqlDbType.NVarChar).Value = (DataGridView1.Rows(i).Cells(1).Value)
'End With
Dim zz23 As New DataTable
Dim az As New SqlDataAdapter(cmd)
az.Fill(zz23)
Dim cmdDLigne245 As New SqlCommand("select DO_Piece,AR_Ref,DL_Ligne,Numseq,Qte from DL_Ligne_Table where Numero='ST200036' order by numseq ", cn)
Dim daz2456 As New SqlDataAdapter(cmdDLigne245)
Dim qqs2 As New DataTable
daz2456.Fill(qqs2)
For o = 0 To qqs2.Rows.Count - 1
Dim PrixRevient2 As Double = 0
' PrixUnitaire = zz.Rows(o).Item(3)
PrixRevient2 = FormatNumber(CDbl(zz23.Rows(o).Item(4)), 3)
' MessageBox.Show("article deta " & zz.Rows(o).Item(0) & "article dl " & qqs2.Rows(o).Item(1).ToString())
Dim articleEntrer = qqs2.Rows(o).Item(1).ToString()

If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()

Dim asv As New SqlCommand("select as_qtesto,as_montsto,cbmarq from f_artstock where ar_ref='" & Trim(articleEntrer) & "' And de_no ='" & CInt(TextBox1.Text) & "' ", cn)


Dim qteEx As SqlDataReader = asv.ExecuteReader
qteEx.Read()



' qte1 = qteEx(0) 'qte commandé
Dim qte2 = qteEx(0) 'qte stock
Dim qte3 = qteEx(1) 'montant
Dim cbmarq = qteEx(2)
Dim QteEntre As Double
QteEntre = zz23.Rows(o).Item(2)
' Dim qteTotaleCom = qte1 - QteEntre
Dim qteTotaleSto = qte2 + QteEntre

Dim totMont = qte3 + PrixRevient2 * CDbl(zz23.Rows(o).Item(2))

If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
' MessageBox.Show("Article " & articleEntrer & "AS_QteSto=" & qteTotaleSto & "AS_MontSto=" & totMont & " cbmarq=" & cbmarq)
Dim updF As New SqlCommand("UPDATE F_ARTSTOCK set as_qtecom='0',AS_QteSto='" & qteTotaleSto & "',AS_MontSto='" & totMont & "' where cbmarq='" & cbmarq & "' ", cn)
updF.ExecuteNonQuery()
' sr2.Write("Mise à jour de STOCK :" & articleEntrer & " as_qtecom='0'" & " AS_QteSto = " & qteTotaleSto & " AS_MontSto = " & totMont & ": ok" & Environment.NewLine)
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
Dim updF2 As New SqlCommand("UPDATE F_ARTICLE set AR_PUNet='" & PrixRevient2 & "' where AR_REF= '" & Trim(articleEntrer) & "' ", cn)
updF2.ExecuteNonQuery()
' sr2.Write("Mise à jour de F_ARTICLE de l'article : " & articleEntrer & " AR_PUNet = " & PrixRevient2 & ": ok" & Environment.NewLine)

Next





Dim disArt As New SqlCommand("select DISTINCT(AR_REF) from DL_Ligne_Table where numero='ST200036'", cn)
Dim vis As New SqlDataAdapter(disArt)
Dim tabArt As New DataTable
vis.Fill(tabArt)
Dim articleDistinct As String

If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
For ab = 0 To tabArt.Rows.Count - 1
articleDistinct = tabArt.Rows(ab).Item("AR_REF").ToString
Dim arttrouve As New SqlCommand("select count(DL_Qte) FROM F_DOCLIGNE WHERE do_type='12' and ar_ref='" & Trim(articleDistinct) & "'", cn)
Dim trouveArt = arttrouve.ExecuteScalar
If trouveArt > 0 Then

If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
Dim QteDocL As New SqlCommand("select SUM(DL_Qte) from F_DOCLIGNE where do_type='12' and ar_ref='" & Trim(articleDistinct) & "'", cn)
Dim sumQte As SqlDataReader = QteDocL.ExecuteReader
sumQte.Read()
Dim sumQteArt As Double
sumQteArt = sumQte(0)
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
Dim UpdateArticle As New SqlCommand("UPDATE F_ARTSTOCK SET AS_QteCom='" & sumQteArt & "' where AR_REF='" & Trim(articleDistinct) & "' and de_no='" & CInt(TextBox1.Text) & "'", cn)

UpdateArticle.ExecuteNonQuery()

'sr2.Write("Mise à jour de QteCommandé F_ARTSTOCK " & " Article = " & articleDistinct & " AS_QteCom = " & sumQteArt & ": ok" & Environment.NewLine)


End If
Next
cn.Close()
cn.Open()
Using cmd5 As New SqlCommand("update EnteteReceptionFrs set Etat='V' where Numero='ST200036' ", cn)
cmd5.ExecuteNonQuery()
End Using


If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
Using comm As New SqlCommand("delete from DL_Ligne_Table where Numero='ST200036'", cn)
comm.ExecuteNonQuery()
End Using
MessageBox.Show("terminer !!!")

Continue reading...