شوف يا عـــــــــــم :
هذا الكلام ملوش علاقة بالتقنية المستخدمه
يمعنى :
أنت المفترض تتحكم في مربع النص بحيث لا تسمح للمستخدم يتركه فارغ أو حتى يدخل رموز
بل يجب أجبار المستخدم يدخل أرقام .. وألا أخرج من الأجراء ولا تنفذ أي شيء
لأنه من غير المعقول تتم العملية بدون مبلغ الشراء أو مبلغ البيع ..
قمت بكتابة كود التعديل على النحو التالي
[HTML]
Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
Dim UpdateData As New DB.Data_BedaDataContext
Dim x = From beda In UpdateData.Bedas Where beda.Beda_id = txt_beda_id.Text Select beda
06-08-13, 01:42 AM (آخر تعديل لهذه المشاركة : 06-08-13, 04:27 AM {2} بواسطة Sajad.)
انا طبعا طريقتي مختلفه كما تعلم ,,, ومش راح أقلك عنها لأنك بدأ تسأل عن أسرار خاصة بشغلى
كود التعديل اللى انا بستخدمه هو شويه متقدم ,, يعني أختراع شخصي ومتعوب عليه .
لكن عايز أقول حسب طريقتك :
طيب أنت جلبت السجل المستهدف في متغير X مع أن البحث خطأ ,
المفترض أنك تحفظ التغييرات اللى حدثت على السجل
UpdateData.SubmitChanges(X)
ما بعرف هل سيتقبل التغييرات أم لا ,,, لان طريقة البحث عن السجل اساسا خطأ وطريقة التعديل بدون عنوان كمان خطأ...
. جرب وقول لي..
08-08-13, 06:27 AM (آخر تعديل لهذه المشاركة : 08-08-13, 07:55 AM {2} بواسطة Sajad.)
PHP كود :
Dim BBTab As DB.Beda = New DB.Beda Dim UpdateData As New DB.Data_BedaDataContext Public Function EditRec(ByVal t As DB.Beda, ByVal i As String) As DB.Beda Dim nn = (From h In UpdateData.Bedas Where h.Beda_id = i Select h).Single With nn .Beda_Name = t.Beda_Name .Beda_Note = t.Beda_Note .Mabee_Price = t.Mabee_Price .Shra_Price = t.Shra_Price End With UpdateData.SubmitChanges() Return nn End Function Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
With BBTab .Beda_Name = txt_beda_Name.Text .Shra_Price = txt_Shra_Price.Text .Mabee_Price = txt_Mabee_Price.Text .Beda_Note = txt_Note.Text End With