在鼠标点击DATAGRID控件的行数据时,如何实现将该数据读入到TEXT文本框中?
在鼠标点击DATAGRID控件的行数据时,如何实现将该数据读入到TEXT文本框中?急,静候佳音!!! --------------------编程问答--------------------
DATAGRID 控件绑定的数据源是什么? --------------------编程问答-------------------- 控件读取的数据来自于Acess数据库,并且只有一列数据 --------------------编程问答--------------------
LZ:2楼问的实际是你通过那种方式与数据库连接,如ADO数据对象?ADO数据控件?只有确准方式,才能提供意见.不论是ADO数据对象或ADO数据控件,它都产生一个记录集在内存,通过DataGrid控件的Click事件将DataGrid控件显示行指向的记录字段值取出赋值给TEXT文本框. --------------------编程问答-------------------- 不好意思,是我没表述明白,我用的是引用ADO对象而不是ADO控件,谢了
期待答复 --------------------编程问答-------------------- 给段代码供参考:
--------------------编程问答-------------------- 谢谢,但还没有解决问题
Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Dim sql As String
Dim sdbname As String
Dim sPassword As String
Dim str As String
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
sdbname = App.Path + "\hxrkgl.mdb"
sPassword = ""
sql = "Select * from mdlk_sj"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
End Sub
Private Sub DataGrid1_Click()
Text1 = rs("码单号")
Text2 = rs("数量")
End Sub
现在的窗口上是有3个datagrid控件,每个控件中显示不同的内容,比如第一个控件显示“码单号”,第二个控件显示“数量”信息等,且每个控件只有一列数据
在点击不同控件的内容时,文本框中就会显示相应控件的行的内容,而不是全部显示该控件内容;
并且文本框会记录所有点击过的内容
问题有点复杂,等待答复 --------------------编程问答-------------------- 无人问津啊?我追加50分,请大家热烈相应啊
补充:VB , 控件