[نبيل كونكت]

للاسف متحلتش برده

[silverlight]

انظر النثال فقط في المرفقات و نفذ الكود صح
ان شاء الله ها تتحل

[نبيل كونكت]

الصوره للتوضيح 
ان القيمه موجوده اول ما بنضغط على الزرار بس والفورم مفتوح لا

---

(06-07-17, 11:55 AM)نبيل كونكت كتب : الصوره للتوضيح 
ان القيمه موجوده اول ما بنضغط على الزرار بس والفورم مفتوح لا

الى هى اسم المستحدم

[silverlight]

الأخ نبيل

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

أما أي عمليات اخري فهي تدخل في بند المصفوفات

لذلك سامحني إن لم أستطع مساعدتك كثيرا في حل مشكلتك

و ربما أحد الإخوة المهتمين بقواعد البيانات يستطيع أن يمد لك يد المساعدة بشكل أفضل مني

[نبيل كونكت]

انا بكرر كلامى لحضرتك انى متشكر جدااا لمجهودك فى حل المشكله
وهرفع المشكله فى فسم قواعد البيانات

[silverlight]

سؤال أخير ....... نبيل

من أين يحصل المتغير fullname علي القيمة المبدئية الخاصة به؟

[23656]

كود :

Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        TXTGNAME.Text = fullname


        'Dim q As Integer
        'For q = 0 To dgvprodac.Rows.Count - 1
        '    If Convert.ToInt32(dgvprodac.Rows(q).Cells("qty").Value < dgvprodac.Rows(q).Cells("talab").Value) Then
        '        dgvprodac.Rows(q).Cells("qty").Style.BackColor = Color.Red
        '    End If
        'Next


        For i = 0 To dgvprodac.Columns.Count - 1
            dgvprodac.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable

        Next


        Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
        Dim dt As New DataTable
        pd = Me.BindingContext(dt)
        da.Fill(dt)
        Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
        Dim gh As New AutoCompleteStringCollection()
        gh.AddRange(itms)
        txtlabel.AutoCompleteCustomSource = gh
        txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource




        Try
            con.Open()
            sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
            cmd = New OleDbCommand(sqlstr, con)
            txtnamper.Text = cmd.ExecuteScalar()
            ' الكود ده مش بيتفعل غير لما اضغط على زر الفورم والفورم بيفتح اصلا اول مفتح البرنامج
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


    End Sub

[نبيل كونكت]

اخى ... silverlight
متغير الــ fullname بياخد قميته من فورم تسجيل الدخول

---

(07-07-17, 10:55 AM)23656 شكرا لمجهودك بجدبس نفس المشكله كتب :

كود :

   Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       TXTGNAME.Text = fullname


       'Dim q As Integer
       'For q = 0 To dgvprodac.Rows.Count - 1
       '    If Convert.ToInt32(dgvprodac.Rows(q).Cells("qty").Value < dgvprodac.Rows(q).Cells("talab").Value) Then
       '        dgvprodac.Rows(q).Cells("qty").Style.BackColor = Color.Red
       '    End If
       'Next


       For i = 0 To dgvprodac.Columns.Count - 1
           dgvprodac.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable

       Next


       Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
       Dim dt As New DataTable
       pd = Me.BindingContext(dt)
       da.Fill(dt)
       Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
       Dim gh As New AutoCompleteStringCollection()
       gh.AddRange(itms)
       txtlabel.AutoCompleteCustomSource = gh
       txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
       txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource




       Try
           con.Open()
           sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
           cmd = New OleDbCommand(sqlstr, con)
           txtnamper.Text = cmd.ExecuteScalar()
           ' الكود ده مش بيتفعل غير لما اضغط على زر الفورم والفورم بيفتح اصلا اول مفتح البرنامج
           con.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


   End Sub

[silverlight]

غالبا ما يحدث معك كالأتي
يتم اغلاق فورم تسجيل الدخول
وبالتالي اي بيانات يتم تخصيصها يحدث لها Dispose

حاول تخصص القيمة في الحدث Closing الخاص بفورم التسجيل
أي ان التخصيص يجب أن يحدث عند اغلاق الفورم الخاص بالتسجيل


او عليك أن تحفظها في الميموري مثلا او في ملف مؤقت ثم تقرأها من الفورم الأخر