[shoma79]

بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل

كود :

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