منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكله فى Load الخاص بفورم متصل بقواعد بيانات... للخبراء - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكله فى Load الخاص بفورم متصل بقواعد بيانات... للخبراء (/showthread.php?tid=20967)



مشكله فى Load الخاص بفورم متصل بقواعد بيانات... للخبراء - نبيل كونكت - 08-07-17

تالت مره اعرض المشكله 
فى قسم اسئلة VB.NET و [b]قسم قواعد البيانات العام[/b]
[b]فورم الفاتوره بيظهر اول متفتح البرنامج بس اسم المستحدم الى هو "TXTGNAME.Text"
[/b]




بيكون فاضى مع العلم ان لو ضغط على زرار الفاتوره بيظهر 

بياخد قيمته من متغير عام فى الموديول

وده كود اللود الخاص بالفورم

ومرفض الصور
[b]سالت فى قسم اسائلة الفيجوال وتانى مره ارفع المشكله[/b]
PHP كود :
Private Sub folderadd_Load(sender As ObjectAs EventArgsHandles MyBase.Load
       


       
'Dim q As Integer
       '
For 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 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(xx("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(sqlstrcon)
 
          txtnamper.Text cmd.ExecuteScalar()
 
          ' الكود ده مش بيتفعل غير لما اضغط على زر الفورم والفورم بيفتح اصلا اول مفتح البرنامج
           TXTGNAME.Text = fullname
           con.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


   End Sub