选中DataGridView的一行后,点击一个按钮,让这一行的数据显示在TextBox中~ 100
PrivateSubToolStripButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)...
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim sqlcmd As New SqlClient.SqlCommand '定义sqlCommand
sqlcmd.Connection = New SqlClient.SqlConnection(GetDBInfo())
sqlcmd.Connection.Open()
Try
Dim sqlrd As SqlClient.SqlDataReader '定义sqldatareader
sqlcmd.CommandText = "Select * From cangk where cangkno=" & CangkglDataSet5.cangk.Rows(cklxDGV.CurrentCell.RowIndex).Item("cangkno")
sqlrd = sqlcmd.ExecuteReader(CommandBehavior.CloseConnection) '生成sqldatareader
sqlrd.Read() '读取数据
While (sqlrd.Read())
TextBox1.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkno").Value.ToString()
TextBox2.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkname").Value.ToString()
TextBox3.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkadd").Value.ToString()
TextBox4.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangktype").Value.ToString()
End While
sqlrd.Close()
sqlcmd.Connection.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcmd.Dispose() ' 释放sqlCommand
End Try
End Sub
代码是这样 但是点击按钮以后没有反应 TextBox里也没有显示
请问是哪里错了 应该怎么改 我是新手 麻烦说详细一点 谢谢! 展开
Dim sqlcmd As New SqlClient.SqlCommand '定义sqlCommand
sqlcmd.Connection = New SqlClient.SqlConnection(GetDBInfo())
sqlcmd.Connection.Open()
Try
Dim sqlrd As SqlClient.SqlDataReader '定义sqldatareader
sqlcmd.CommandText = "Select * From cangk where cangkno=" & CangkglDataSet5.cangk.Rows(cklxDGV.CurrentCell.RowIndex).Item("cangkno")
sqlrd = sqlcmd.ExecuteReader(CommandBehavior.CloseConnection) '生成sqldatareader
sqlrd.Read() '读取数据
While (sqlrd.Read())
TextBox1.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkno").Value.ToString()
TextBox2.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkname").Value.ToString()
TextBox3.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkadd").Value.ToString()
TextBox4.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangktype").Value.ToString()
End While
sqlrd.Close()
sqlcmd.Connection.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcmd.Dispose() ' 释放sqlCommand
End Try
End Sub
代码是这样 但是点击按钮以后没有反应 TextBox里也没有显示
请问是哪里错了 应该怎么改 我是新手 麻烦说详细一点 谢谢! 展开
2013-01-24
展开全部
没缩进着色的代码看着好累呀.
按钮点击事件事件中使用
dataGridView1.CurrentCell.RowIndex //获取所选单元格所在dataGridView1.Rows中的索引也就是选了dataGridView的第几行
dataGridView1.Rows[dataGridView1.CurrentCell.RowIndex]//这样就抓取到你所选的整行了.
可以用dataGridView的 SelectionChanged 事件 确保有选择行.否则你没选会抛异常.
按钮点击事件事件中使用
dataGridView1.CurrentCell.RowIndex //获取所选单元格所在dataGridView1.Rows中的索引也就是选了dataGridView的第几行
dataGridView1.Rows[dataGridView1.CurrentCell.RowIndex]//这样就抓取到你所选的整行了.
可以用dataGridView的 SelectionChanged 事件 确保有选择行.否则你没选会抛异常.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询