08-07-17, 07:50 AM
تالت مره اعرض المشكله
فى قسم اسئلة VB.NET و [b]قسم قواعد البيانات العام[/b]
[b]فورم الفاتوره بيظهر اول متفتح البرنامج بس اسم المستحدم الى هو "TXTGNAME.Text"
[/b]
بيكون فاضى مع العلم ان لو ضغط على زرار الفاتوره بيظهر
بياخد قيمته من متغير عام فى الموديول
وده كود اللود الخاص بالفورم
ومرفض الصور
[b]سالت فى قسم اسائلة الفيجوال وتانى مره ارفع المشكله[/b]
فى قسم اسئلة VB.NET و [b]قسم قواعد البيانات العام[/b]
[b]فورم الفاتوره بيظهر اول متفتح البرنامج بس اسم المستحدم الى هو "TXTGNAME.Text"
[/b]
بيكون فاضى مع العلم ان لو ضغط على زرار الفاتوره بيظهر
بياخد قيمته من متغير عام فى الموديول
وده كود اللود الخاص بالفورم
ومرفض الصور
[b]سالت فى قسم اسائلة الفيجوال وتانى مره ارفع المشكله[/b]
PHP كود :
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'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()
' الكود ده مش بيتفعل غير لما اضغط على زر الفورم والفورم بيفتح اصلا اول مفتح البرنامج
TXTGNAME.Text = fullname
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub