شوف يا عـــــــــــم :
هذا الكلام ملوش علاقة بالتقنية المستخدمه
يمعنى :
أنت المفترض تتحكم في مربع النص بحيث لا تسمح للمستخدم يتركه فارغ أو حتى يدخل رموز
بل يجب أجبار المستخدم يدخل أرقام .. وألا أخرج من الأجراء ولا تنفذ أي شيء
لأنه من غير المعقول تتم العملية بدون مبلغ الشراء أو مبلغ البيع ..
يعني أتصرف بحكمه ,,,,
السلام عليكم
شكرا اخي ابو ايهاب على نصائحك
قمت بكتابة كود التعديل على النحو التالي
[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
x.beda_Name = txt_beda_Name.Text
x.shra_Price = txt_Shra_Price.Text
x.mabee_Price = txt_Mabee_Price.Text
x.Beda_Note = txt_Note.Text
Try
UpdateData.SubmitChanges()
MsgBox("Data Updated")
Catch
' Handle exception.
End Try
End Sub[/HTML]
الا ان هناك خطأ فيه
ارجو المساعدة في تصويب كود التعديل، والاشارة الى مكمن الخطأ، حتى اتعلم منه
والف الف شكر
انا طبعا طريقتي مختلفه كما تعلم ,,, ومش راح أقلك عنها لأنك بدأ تسأل عن أسرار خاصة بشغلى
كود التعديل اللى انا بستخدمه هو شويه متقدم ,, يعني أختراع شخصي ومتعوب عليه .
لكن عايز أقول حسب طريقتك :
طيب أنت جلبت السجل المستهدف في متغير X مع أن البحث خطأ ,
المفترض أنك تحفظ التغييرات اللى حدثت على السجل
UpdateData.SubmitChanges(X)
ما بعرف هل سيتقبل التغييرات أم لا ,,, لان طريقة البحث عن السجل اساسا خطأ وطريقة التعديل بدون عنوان كمان خطأ...
. جرب وقول لي..
السلام عليكم
كل عام وانتم بخير
إقتباس :انا طبعا طريقتي مختلفه كما تعلم ,,, ومش راح أقلك عنها لأنك بدأ تسأل عن أسرار خاصة بشغلى
اخي ابو ايهاب
انا كل ما اطلبه، كود بسيط للتعديل، ولا اطلب اكواد احترافية، كما اطلب الاشارة الى مكمن الخطأ الذي وقعت به
لانه بصراحة بقي لي كود التعديل، حتى انطلق بعملي ان شاء الله
ارفق ملف الداتا
حتى يشتغل المثال
والسلام عليكم
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
EditRec(BBTab,txt_beda_id.Text)
MsgBox("Data Updated")
End Sub
[COLOR="#0000FF"]اللــــــــــــــــه يبـــــــــــــــــــــارك فيــــــــــــــــــك[/COLOR]
وبامثالك
واحلى عيدية في هذا الصباح
ساجرب الكود ان شاء الله
والف الف شكر
تم إضافة الصورة المكبرة للموضوع من قبل الإدارة ( لتسهيل الرؤية ) . بالتوفيق 
ماشاء الله
رد كبير من ابو ايهاب
ربنا يزيدك من علمه يارب