07-07-17, 07:28 AM
فورم الفاتوره بيظهر اول متفتح البرنامج بس اسم المستحدم الى هو "TXTGNAME.Text"
بيكون فاضى مع العلم ان لو ضغط على زرار الفاتوره بيظهر
بياخد قيمته من متغير عام فى الموديول
وده كود اللود الخاص بالفورم
ومرفض الصور
سالت فى قسم اسائلة الفيجوال وتانى مره ارفع المشكله
بيكون فاضى مع العلم ان لو ضغط على زرار الفاتوره بيظهر
بياخد قيمته من متغير عام فى الموديول
وده كود اللود الخاص بالفورم
ومرفض الصور
سالت فى قسم اسائلة الفيجوال وتانى مره ارفع المشكله
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