منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ما الغلط في كود التعديل التالي بحيث عند تعديل الاسم يعطينا رسالة ان هذا الاسم الاسم موجود من قبل رغم انة غير موجود باقي الحقول يعدلها ؟ ارجو المساعدة 

هذا الصاب 

 Public Sub update_Federations_indirect()
      
        'كود تعديل جدول الاقاليم 
        Dim dt As New DataTable
        Dim da As New SqlDataAdapter
        dt.Clear()
        da = New SqlDataAdapter("Select * FROM Federations where (Federationid = " & Federations.FederationId.Text & ") and (FederationNameA = N'" & Federations.FederationNameA.Text & "')", con)

        da.Fill(dt)
            ' if Column present give msgbox to alert & Dont save
        If dt.Rows.Count = 0 Then
            MsgBox("هذا الإقليم موجود من قبل ", MsgBoxStyle.Critical, "بيانات غير مسجلة ")
        Else

            Dim pos As Integer = Federations.BindingContext(dt).Position
     
            dt.Rows(pos).Item("FederationNameA") = Federations.FederationNameA.Text   
            

            dt.Rows(pos).Item("Federationphone") = Federations.FederationPhone.Text
            dt.Rows(pos).Item("FederationPhone1") = Federations.FederationPhone1.Text
            dt.Rows(pos).Item("FederationTell") = Federations.FederationTell.Text
            dt.Rows(pos).Item("Federationtelefax") = Federations.Federationtelefax.Text
       
            Dim Save As New SqlCommandBuilder(da)
            da.Update(dt)
            dt.AcceptChanges()

            'give msgbox to sure save
            MsgBox("تم التعديل بنجاح ", MsgBoxStyle.Information, "تاكيد التعديل")
            ' load table to refresh data
            LoadAllTable_Federations_InDirect(Federations.dgv)
        End If

    End Sub


وهذا الكود الموجود في زر التعديل 

   Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click
        If MsgBox(" هل تريد تعديل بيانات الإقليم ؟", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Try

                If FederationNameA.Text = Nothing Then
                    MsgBox("يرجى تسجيل إسم صالح للإقليم ")
                End If
                cls.update_Federations_indirect()
                cls.clearcontrols_Federations()

            Catch ex As Exception

            End Try
        End If
    End Sub