15-07-19, 07:23 AM
شباب الله يكرمكم مساعده
انا شغال في برنامج مبيعات
وعملت زر واحد للتعديل والاضافه المشكله انه بيكرر الاضافه عاوز اخلي الاستعلام انه لو الاسم موجود ماتضفيه تاني
ده الكود
انا شغال في برنامج مبيعات
وعملت زر واحد للتعديل والاضافه المشكله انه بيكرر الاضافه عاوز اخلي الاستعلام انه لو الاسم موجود ماتضفيه تاني
ده الكود
كود :
If Unit.Text = "" Then
ErrorProvider1.SetError(Unit, "ادخل اسم الوحدة")
Unit.Focus()
Exit Sub
Else
Dim sql = "select * from Unit where ID=N'" & (ID.Text) & "'"
Dim adp As New SqlClient.SqlDataAdapter(sql, SQLConn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
If dt.Rows.Count > 0 Then
Dim dr = dt.Rows(0)
dr!Unit = Unit.Text
Dim cmd As New SqlClient.SqlCommandBuilder(adp)
adp.Update(dt)
BtnNew_Click(sender, e)
MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "رسالة تأكيد")
showGrid("select * from Unit order by Unit")
Else
Dim dr = dt.NewRow
dr!Unit = Unit.Text
dt.Rows.Add(dr)
Dim cmd1 As New SqlClient.SqlCommandBuilder(adp)
adp.Update(dt)
BtnNew_Click(sender, e)
MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "رسالة تأكيد")
showGrid("select * from Unit order by Unit")
End If
End If