选中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里也没有显示
请问是哪里错了 应该怎么改 我是新手 麻烦说详细一点 谢谢! 展开
3个回答
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 事件 确保有选择行.否则你没选会抛异常.
微测检测5.10
2023-05-10 广告
2023-05-10 广告
您好!建议咨 深圳市微测检测有限公司,已建立起十余个专业实验室,企业通过微测检测就可以获得一站式的测试与认 证解决方案;(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量),认证遇...
点击进入详情页
本回答由微测检测5.10提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询