[mady57]

السلام عليكم ورحمة الله وبركاته
اصم برنامج محاسبى متخصص بعض الشئ وأعتمد على داتا بيز Local
مشكلتى فى تحديث البيانات أو التعديل عليها ... الفورم الذى استخدمه يحتوى على كمبوبوكس لكل حقل فى الجدول تكون مختفيه فى بداية ظهور الفورم الذى اعمل عليه بالإضافة الى الداتا فيو وتكست بوكس لكل حقل لإدخال عنصر جديد (يتم اخفاؤها عند عمل تعديلات وإظهار الكمبيوبوكس)
- أمر Insert يعمل بكفاءة مع التكست بوكس أثناء تنفيذ البرنامج
- عند التعديل لا يقبل التعديل سواء فى الكمبيوبوكس او الداتا فيو بالأمر update بمعنى اننى ادخل رقم جديد يقبله وعندما اقوم بتنفيذ امر التحديث تعود القيم الى ما كانت عليه امامى فى الكمبيوبوكس والداتا فيو.
- إذا خرجت من البرنامج وعدت الى شاشة التصميم ثم اعدت تشغيل البرنامج مرة اخرى تكون البيانات التى تم تسجيلها موجوده كما هى.
- فى وضع التصميم إذا قمت بإستعراض البيانات التى سجلتها بأى وسيله يتم حذف جميع البيانات ويظهر ملف الداتا فارغا
- جربت اوامر Sqlconnection - Accebtchanges - update بدون فائده
- فى توصيف الداتا فيو التعديل والإضافة والحذف تم تفعيلها
استخدمت نماذج عديده من المنتدى ومن المواقع الأجنبيه ولكن بقيت المشكله كما هى ... قرأت فى ملفات المساعده حتى خرجت عيونى من مقلتيها ولم اصل الى نتيجه
- انا حاليا اعمل على V. basic .net 2010
فى رأيكم أين تكمن المشكله (مع العلم انا مبرمج عتيق جداً منذ اوائل التسعينات ولكن خبرتى فى .net ليست بمستوى V. basic 2005 مثلا وأعلم ان الفارق كبير جدا)
والكود التالى هو المستخدم مع هذا الفورم (قد تلاحظون اننى من النوع العتيق الذى لازال يستخدم اسلوب اللغات القديمه فى البرمجه فعذرا)

كود :

[align=left]Public Class ProjFrm
    Public Mdate

    Private Sub ProjFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)
        Mdate = Me.DateTimePicker1.Value.Date
        projnamcmb.Visible = False
        wonernamcmb.Visible = False
        projplaccmb.Visible = False
        contractvlucmb.Visible = False
        strtdatecmb.Visible = False
        enddatecmb.Visible = False
        gdworkcmb.Visible = False
    End Sub
    Private Sub DateTimePicker1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
        Mdate = Me.DateTimePicker1.Value.Date
    End Sub

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Mdate = Me.DateTimePicker1.Value.Date
    End Sub

    Private Sub strtdatetxt_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles strtdatetxt.GotFocus
        strtdatetxt.Text = Format(Mdate, "d")
        Me.DateTimePicker1.Focus()
    End Sub

    Private Sub enddatetxt_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles enddatetxt.GotFocus
        enddatetxt.Text = Format(Mdate, "d")
        Me.DateTimePicker1.Focus()
    End Sub

    Private Sub إضافةمشروعجديدToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles إضافةمشروعجديدToolStripMenuItem.Click
        projnamcmb.Visible = False
        wonernamcmb.Visible = False
        projplaccmb.Visible = False
        contractvlucmb.Visible = False
        strtdatecmb.Visible = False
        enddatecmb.Visible = False
        gdworkcmb.Visible = False
        enddatetxt.Visible = True
        strtdatetxt.Visible = True
        contractvlutxt.Visible = True
        projplactxt.Visible = True
        wonernamtxt.Visible = True
        projnamtxt.Visible = True
        gdworktxt.Visible = True
    End Sub

    Private Sub تعديلبياناتمشروعToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles تعديلبياناتمشروعToolStripMenuItem.Click
        projnamcmb.Visible = True
        wonernamcmb.Visible = True
        projplaccmb.Visible = True
        contractvlucmb.Visible = True
        strtdatecmb.Visible = True
        enddatecmb.Visible = True
        gdworkcmb.Visible = True

        projnamcmb.Location = projnamtxt.Location
        projnamcmb.Size = projplactxt.Size
        projnamcmb.BackColor = projplactxt.BackColor
        projnamcmb.Font = projnamtxt.Font
        projnamcmb.ForeColor = projnamtxt.ForeColor

        wonernamcmb.Location = wonernamtxt.Location
        wonernamcmb.Size = wonernamtxt.Size
        wonernamcmb.BackColor = wonernamtxt.BackColor
        wonernamcmb.Font = wonernamtxt.Font
        wonernamcmb.ForeColor = wonernamtxt.ForeColor

        projplaccmb.Location = projplactxt.Location
        projplaccmb.Size = projplactxt.Size
        projplaccmb.BackColor = projplactxt.BackColor
        projplaccmb.Font = projplactxt.Font
        projplaccmb.ForeColor = projplactxt.ForeColor

        contractvlucmb.Location = contractvlutxt.Location
        contractvlucmb.Size = contractvlutxt.Size
        contractvlucmb.BackColor = contractvlutxt.BackColor
        contractvlucmb.Font = contractvlutxt.Font
        contractvlucmb.ForeColor = contractvlutxt.ForeColor

        strtdatecmb.Location = strtdatetxt.Location
        strtdatecmb.Size = strtdatetxt.Size
        strtdatecmb.BackColor = strtdatetxt.BackColor
        strtdatecmb.Font = strtdatetxt.Font
        strtdatecmb.ForeColor = strtdatetxt.ForeColor
    
        enddatecmb.Location = enddatetxt.Location
        enddatecmb.Size = enddatetxt.Size
        enddatecmb.BackColor = enddatetxt.BackColor
        enddatecmb.Font = enddatetxt.Font
        enddatecmb.ForeColor = enddatetxt.ForeColor
    
        gdworkcmb.Location = gdworktxt.Location
        gdworkcmb.Size = gdworktxt.Size
        gdworkcmb.BackColor = gdworktxt.BackColor
        gdworkcmb.Font = gdworktxt.Font
        gdworkcmb.ForeColor = gdworktxt.ForeColor

        'إخفاء ادوات التحكم الأصليه
        enddatetxt.Visible = False
        strtdatetxt.Visible = False
        contractvlutxt.Visible = False
        projplactxt.Visible = False
        wonernamtxt.Visible = False
        projnamtxt.Visible = False
        gdworktxt.Visible = False
    End Sub

    Private Sub حفظالمشروعالجديدToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles حفظالمشروعالجديدToolStripMenuItem.Click
        Try
            Me.ProjctsUnderWorkIndxTableAdapter.Insert(Me.projnamtxt.Text, Me.wonernamtxt.Text, Val(Me.contractvlutxt.Text), Me.projplactxt.Text, Me.strtdatetxt.Text, Me.enddatetxt.Text, Val(Me.gdworktxt.Text))
            Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)
            MessageBox.Show("  تم  الحفظ  بنجاح")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        enddatetxt.Text = ""
        strtdatetxt.Text = ""
        contractvlutxt.Text = ""
        projplactxt.Text = ""
        wonernamtxt.Text = ""
        projnamtxt.Text = ""
        gdworktxt.Text = ""
    End Sub

    Private Sub انهاءالعملياتToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles انهاءالعملياتToolStripMenuItem.Click
        Database1DataSet.ProjctsUnderWorkIndx.AcceptChanges()
        Me.Close()
    End Sub

    Private Sub حفظالتعديلاتعلىالمشروعToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles حفظالتعديلاتعلىالمشروعToolStripMenuItem.Click
        Try
            Me.Validate()
            Me.ProjctsUnderWorkIndxBindingSource1.EndEdit()
            Database1DataSet.ProjctsUnderWorkIndx.AcceptChanges()
            Me.ProjctsUnderWorkIndxTableAdapter.Update(Me.Database1DataSet.ProjctsUnderWorkIndx)
            Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)
            MessageBox.Show("  تم  الحفظ  بنجاح")
        Catch ex As Exception
        End Try
    End Sub

    
    Private Sub BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorSaveItem.Click
        Me.ProjctsUnderWorkIndxTableAdapter.Update(Me.Database1DataSet.ProjctsUnderWorkIndx)
        Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)
        MessageBox.Show("  تم  الحفظ  بنجاح")
    End Sub

End Class[/align]

[mady57]

ما شاء الله .... أعدم المنتدى الخبراء .... ما فى خبير واحد من خبراء المنتدى الكرام يدلى بدلوه للمساعده

[khattabcosmology]

السلام عليكم
أنا عندي حل مزعج شوية وهو أن تقوم برفع المثال المطلوب التعديل عليه

والسلام عليكم ورحمة الله

[مالكـ]

اتوقع ...

احذف كود التعديل
Me.Validate()