21-11-18, 12:00 AM
بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل
كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Search.Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\mydata.accdb;Jet OLEDB:Database Password=shoma661979")
Dim dt As New DataTable
Dim total As Integer
dt.Clear()
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter(cmd)
Dim hugh = DateTimePicker1.Value.Date
Dim hugh2 = DateTimePicker2.Value.Date
With cmd
.CommandText = "Select * from Travel where Data between #" & hugh & "# And #" & hugh2 & "# order by data"
.CommandType = CommandType.Text
.Connection = con
End With
da.Fill(dt)
DataGridView1.DataSource = dt
For i As Integer = 0 To dt.Rows.Count - 1
total = dt.Rows(i).Item("TotalTravelPrice") + total
Label7.Text = total
Next
DateTimePicker1.Value.ToString("yyyy/MM/dd")
TxtFacSearch.Text = ""
TxtFacSearch.Text = ""
'Me.DataGridView1.Columns(0).HeaderText = " رقم السفرية"
Me.DataGridView1.Columns(1).HeaderText = " اسم المهندس"
Me.DataGridView1.Columns(2).HeaderText = " اسم المصنع"
Me.DataGridView1.Columns(3).HeaderText = " تاريخ السفرية"
Me.DataGridView1.Columns(4).HeaderText = " نوع السفرية"
Me.DataGridView1.Columns(5).HeaderText = " عدد الايام"
Me.DataGridView1.Columns(6).HeaderText = "قيمة اليوم"
Me.DataGridView1.Columns(7).HeaderText = " عدد الليالي"
Me.DataGridView1.Columns(8).HeaderText = " قيمة الليلة"
Me.DataGridView1.Columns(9).HeaderText = "قيمة السفرية"
Me.DataGridView1.Columns(0).Width = 100
Me.DataGridView1.Columns(1).Width = 100
Me.DataGridView1.Columns(2).Width = 100
Me.DataGridView1.Columns(3).Width = 100
Me.DataGridView1.Columns(4).Width = 150
Me.DataGridView1.Columns(5).Width = 50
Me.DataGridView1.Columns(6).Width = 50
Me.DataGridView1.Columns(7).Width = 50
Me.DataGridView1.Columns(8).Width = 50
Me.DataGridView1.Columns(9).Width = 80
DataGridView1.Columns(0).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(1).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(2).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(3).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(4).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(5).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(6).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(7).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(8).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(9).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
lblNumSelected.Text = DataGridView1.Rows.Count - 1
If DataGridView1 IsNot Nothing Then
Dim count As Integer = 0 'ترقيم تلقائي
While (count <= (DataGridView1.Rows.Count - 1))
DataGridView1.Rows(count).HeaderCell.Value = String.Format((count + 1).ToString(), "0")
count += 1
End While
End If
Me.DataGridView1.Columns(0).Visible = False
DataGridView1.RowsDefaultCellStyle.BackColor = Color.LightBlue
DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Wheat
DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End Sub