14-11-12, 10:22 AM
اخي الكريم جزيت خير الاجزاء ان شاءلله وجعلة في ميزان حسناتك
سؤالى البحت بتاريخ ما يجيب نتيجة مائة بلمائة شوف الصورة وانت تفهم وهدا الكود مرفق ايظن اخي
سؤالى البحت بتاريخ ما يجيب نتيجة مائة بلمائة شوف الصورة وانت تفهم وهدا الكود مرفق ايظن اخي
PHP كود :
dt.Clear()
Dim ds As New DataSet
Dim sql1 As String = "select i.inv_no,i.code,i.drive,i.engine,i.transf,i.chass_no,i.eng_no,i.vin,i.color,i.cd_no,i.cd_date,i.key_no from Invoice3 i , cust_information c where i.inv_no = c.inv_no And i.model like '%" & ComboBox1.Text & "%' And c.inv_date >='" & DateTimePicker1.Text & "' And c.inv_date <='" & DateTimePicker2.Text & "'"
con3.Open()
Dim da As New SqlDataAdapter(sql1, con3)
da.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Refresh()
''-----------------------------------------
''-----------------------------------------
DataGridView1.Columns(0).Width = 60
DataGridView1.Columns(1).Width = 80
DataGridView1.Columns(2).Width = 80
DataGridView1.Columns(3).Width = 80
DataGridView1.Columns(4).Width = 80
DataGridView1.Columns(5).Width = 90
DataGridView1.Columns(6).Width = 80
DataGridView1.Columns(7).Width = 180
DataGridView1.Columns(8).Width = 80
DataGridView1.Columns(9).Width = 80
DataGridView1.Columns(10).Width = 80
DataGridView1.Columns(11).Width = 90
DataGridView1.Columns(0).HeaderText = " Invoice No "
DataGridView1.Columns(1).HeaderText = "Mark"
DataGridView1.Columns(2).HeaderText = "Drive"
DataGridView1.Columns(3).HeaderText = "Engine"
DataGridView1.Columns(4).HeaderText = "Trans"
DataGridView1.Columns(5).HeaderText = "chass_no"
DataGridView1.Columns(6).HeaderText = "Eng_no"
DataGridView1.Columns(7).HeaderText = "VIN"
DataGridView1.Columns(8).HeaderText = "Color"
DataGridView1.Columns(9).HeaderText = "CD_no"
DataGridView1.Columns(10).HeaderText = "CD_date "
DataGridView1.Columns(11).HeaderText = "Key_no"
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
'-------------------------------------------
con3.Close()
