kaka2438
یک شنبه 13 اسفند 1391, 14:17 عصر
سلام
من میخواستم وفتی روی هر یک از سطر های دیتا گرید کلیک میکنم مقدار های رکوردهای انتخابشده از دیتا گرید در تکس باکس نمایش داده بشه
من این کد رو نوشتم اما نمیدونم کجا و داخل چه با ید اسفاده کنم!!
با تشکر
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Try
Dim con As New SqlConnection("server=MAHDI-PC\MSSQLSERVER1;database=mydatabase;Integrated Security=True")
con.Open()
Dim strsql As String
strsql = "select * from date"
Dim da As New SqlDataAdapter(strsql, con)
Dim ds As New DataSet()
da.Fill(ds, "date")
TextBox1.DataBindings.Add(New Binding("Text", ds, "date.id"))
TextBox2.DataBindings.Add(New Binding("Text", ds, "date.detemiladi"))
TextBox3.DataBindings.Add(New Binding("Text", ds, "date.dateshamsi"))
DataGridView1.DataSource = ds
DataGridView1.DataMember = "date"
Catch ex As Exception
Exit Sub
End Try
End Sub
من میخواستم وفتی روی هر یک از سطر های دیتا گرید کلیک میکنم مقدار های رکوردهای انتخابشده از دیتا گرید در تکس باکس نمایش داده بشه
من این کد رو نوشتم اما نمیدونم کجا و داخل چه با ید اسفاده کنم!!
با تشکر
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Try
Dim con As New SqlConnection("server=MAHDI-PC\MSSQLSERVER1;database=mydatabase;Integrated Security=True")
con.Open()
Dim strsql As String
strsql = "select * from date"
Dim da As New SqlDataAdapter(strsql, con)
Dim ds As New DataSet()
da.Fill(ds, "date")
TextBox1.DataBindings.Add(New Binding("Text", ds, "date.id"))
TextBox2.DataBindings.Add(New Binding("Text", ds, "date.detemiladi"))
TextBox3.DataBindings.Add(New Binding("Text", ds, "date.dateshamsi"))
DataGridView1.DataSource = ds
DataGridView1.DataMember = "date"
Catch ex As Exception
Exit Sub
End Try
End Sub