19-06-17, 10:36 PM
العمود الرابع لو بدانا من 0 -1-2-3-4
جربت اكواد كتير بيكون الجمع 0 مع العلم ان فى قيم فى الخلايا
لو سمحتوا تعديل الكود
جربت اكواد كتير بيكون الجمع 0 مع العلم ان فى قيم فى الخلايا
لو سمحتوا تعديل الكود
PHP كود :
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.txtid.Focus()
For i = 0 To dgvprodac.Columns.Count - 1
dgvprodac.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable
Next
'For i = 0 To dt.Rows.Count - 1
' dgvprodac.Rows(i).DefaultCellStyle.BackColor = If(i Mod 2 = 0, Color.AliceBlue, Color.AntiqueWhite)
'Next
'Dim sum As Integer = 0
'For i As Integer = 0 To dgvprodac.Rows.Count - 1
' sum += Convert.ToInt32(dgvprodac.Rows(i).Cells(4).Value)
'Next
'txttotal.Text = sum.ToString()
Dim Total As Integer = 0, z As Integer = 0
While z < dgvprodac.Rows.Count
' sum += Convert.ToInt32(dgvprodac.Rows(i).Cells(4).Value)
Total += CInt(dgvprodac.Rows(z).Cells(4).Value)
z += 1
End While
txttotal.Text = Total.ToString()
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
txtsailman.Text = fullname
sorse()
Try
con.Open()
sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
'sqlstr = "select max ((MAX(Id) IS NULL,0,MAX(Id))) +1 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