منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

---

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

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

الأخ نبيل

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

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

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

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

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

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

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

اخى ... 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

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

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


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