当前位置:编程学习 > VB >>

在鼠标点击DATAGRID控件的行数据时,如何实现将该数据读入到TEXT文本框中?

在鼠标点击DATAGRID控件的行数据时,如何实现将该数据读入到TEXT文本框中? 
急,静候佳音!!! --------------------编程问答--------------------
DATAGRID 控件绑定的数据源是什么? --------------------编程问答-------------------- 控件读取的数据来自于Acess数据库,并且只有一列数据 --------------------编程问答--------------------
引用 2 楼 faraway2008to2009 的回复:
控件读取的数据来自于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 ,  控件
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,