مشکل یک بانک که آپدیت نمیشه

[reza1944]

سلام خدمت تمامی دوستان مشکل این sub چیه که اصلا کار نمیکنه




nmt = Me.Name_MahsolTextBox.Text
Me.FrosheMahsolatBindingSource.RemoveAt(Me.FrosheM ahsolatBindingSource.Position)
Me.FrosheMahsolatBindingSource.EndEdit()
Me.FrosheMahsolatTableAdapter.Update(Me.DBSTDataSe t.FrosheMahsolat)
Dim fl As Integer = Me.FrosheMahsolatTableAdapter.FillBynm(Me.DBSTData Set.FrosheMahsolat, nmt)
Dim sm As DBSTDataSet.SabtMahsolatRow
sm = add_mahsol.DBSTDataSet.SabtMahsolat.FindByName_Mah sol(nmt)
Dim a As String

a = Me.tedadcol
sm.BeginEdit()
sm.AcceptChanges()
sm.Teedad_forosh = Me.tedadcol
Me.SabtMahsolatBindingSource.EndEdit()
Me.SabtMahsolatTableAdapter.Update(Me.DBSTDataSet. SabtMahsolat)
sm.Teedad_Mandeh_Anbar = CStr(Val(sm.Teedad_Kharid) - Val(sm.Teedad_forosh))
sm.Sode_Mahsol = (sm.Gaimat_Forosh - sm.Ghaimat_Kharid) * sm.Teedad_forosh

Me.Validate()
Me.SabtMahsolatBindingSource.EndEdit()
Me.SabtMahsolatTableAdapter.Update(Me.DBSTDataSet. SabtMahsolat)