amir_kashan20
جمعه 12 اردیبهشت 1393, 21:33 عصر
سلام
یه برنامه نوشتم
توی قسمت گزارش گیریش یه دیتاگرید باز کردم به شکل کد زیر
Private Sub fillGridPersons()
Dim cn As New SqlClient.SqlConnection
cn.ConnectionString = "Data Source=PC5;Initial Catalog=Vot;User Id=vo;Password=92;"
oadmainLocal = New SqlDataAdapter("select Pay_Id,Pay_Sum,Pay_Date,P_FName,P_LName,P_Tell,Pay _ByName,Pay_ByRight,Pay_ByTell,Pay_PermitSum,check er from Persons inner join payment on (Persons.p_id=payment.pay_pid) where Pay_date like N'%" & TextBox1.Text.ToString & "%' ", cn.ConnectionString)
dtmaindatatable = New DataTable
Try
oadmainLocal.Fill(dtmaindatatable)
bs = New BindingSource
bs.DataSource = dtmaindatatable
With GridView
.DataSource = Nothing
.DataSource = bs
'format grid
GridView.Font = New Font("b mitra", 11, FontStyle.Regular) ' change to Regular
GridView.RowsDefaultCellStyle.BackColor = Color.LightGoldenrodYellow
GridView.AlternatingRowsDefaultCellStyle.BackColor = Color.White
.Columns(0).HeaderText = "ش فیش"
.Columns(0).Width = 90
.Columns(0).DefaultCellStyle.BackColor = Color.Azure
.Columns(1).HeaderText = "مبلغ"
.Columns(1).Width = 80
.Columns(1).DefaultCellStyle.Format = "##,0"
.Columns(2).HeaderText = "تاریخ"
.Columns(2).Width = 100
.Columns(3).HeaderText = "نام"
.Columns(3).Width = 75
.Columns(4).HeaderText = "نام خانوادگی"
.Columns(4).Width = 140
.Columns(5).HeaderText = "تلفن"
.Columns(5).Width = 100
.Columns(6).HeaderText = "نام 1"
.Columns(6).Width = 80
.Columns(7).HeaderText = "مبلغ 3"
.Columns(7).Width = 100
.Columns(7).DefaultCellStyle.Format = "##,0"
.Columns(8).HeaderText = "تلفن "
.Columns(8).Width = 75
.Columns(9).HeaderText = "مبلغ2"
.Columns(9).Width = 140
.Columns(9).DefaultCellStyle.Format = "##,0"
.Columns(10).HeaderText = "چاپ شده"
.Columns(10).Width = 100
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Cursor = Cursors.Hand
'TODO word wrap desc columns
'currentRowToolStripTextBox.Text = "1"
End With
Catch ex As Exception
MessageBox.Show("query error : " & ex.Message)
Finally
cn.Close()
End Try
End Sub
یه تکس باکس گذاشتم میخام وقتی یه تاریخ رو توش نوشتم عین همون تاریخ رو برام بیاره
یا اگه شد وقتی نرم افزار اجرا شد فیلد هایی رو نشون بده که pay_date انها امروز باشه بیاره
کمکم کنید لطفا
یه برنامه نوشتم
توی قسمت گزارش گیریش یه دیتاگرید باز کردم به شکل کد زیر
Private Sub fillGridPersons()
Dim cn As New SqlClient.SqlConnection
cn.ConnectionString = "Data Source=PC5;Initial Catalog=Vot;User Id=vo;Password=92;"
oadmainLocal = New SqlDataAdapter("select Pay_Id,Pay_Sum,Pay_Date,P_FName,P_LName,P_Tell,Pay _ByName,Pay_ByRight,Pay_ByTell,Pay_PermitSum,check er from Persons inner join payment on (Persons.p_id=payment.pay_pid) where Pay_date like N'%" & TextBox1.Text.ToString & "%' ", cn.ConnectionString)
dtmaindatatable = New DataTable
Try
oadmainLocal.Fill(dtmaindatatable)
bs = New BindingSource
bs.DataSource = dtmaindatatable
With GridView
.DataSource = Nothing
.DataSource = bs
'format grid
GridView.Font = New Font("b mitra", 11, FontStyle.Regular) ' change to Regular
GridView.RowsDefaultCellStyle.BackColor = Color.LightGoldenrodYellow
GridView.AlternatingRowsDefaultCellStyle.BackColor = Color.White
.Columns(0).HeaderText = "ش فیش"
.Columns(0).Width = 90
.Columns(0).DefaultCellStyle.BackColor = Color.Azure
.Columns(1).HeaderText = "مبلغ"
.Columns(1).Width = 80
.Columns(1).DefaultCellStyle.Format = "##,0"
.Columns(2).HeaderText = "تاریخ"
.Columns(2).Width = 100
.Columns(3).HeaderText = "نام"
.Columns(3).Width = 75
.Columns(4).HeaderText = "نام خانوادگی"
.Columns(4).Width = 140
.Columns(5).HeaderText = "تلفن"
.Columns(5).Width = 100
.Columns(6).HeaderText = "نام 1"
.Columns(6).Width = 80
.Columns(7).HeaderText = "مبلغ 3"
.Columns(7).Width = 100
.Columns(7).DefaultCellStyle.Format = "##,0"
.Columns(8).HeaderText = "تلفن "
.Columns(8).Width = 75
.Columns(9).HeaderText = "مبلغ2"
.Columns(9).Width = 140
.Columns(9).DefaultCellStyle.Format = "##,0"
.Columns(10).HeaderText = "چاپ شده"
.Columns(10).Width = 100
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Cursor = Cursors.Hand
'TODO word wrap desc columns
'currentRowToolStripTextBox.Text = "1"
End With
Catch ex As Exception
MessageBox.Show("query error : " & ex.Message)
Finally
cn.Close()
End Try
End Sub
یه تکس باکس گذاشتم میخام وقتی یه تاریخ رو توش نوشتم عین همون تاریخ رو برام بیاره
یا اگه شد وقتی نرم افزار اجرا شد فیلد هایی رو نشون بده که pay_date انها امروز باشه بیاره
کمکم کنید لطفا