vb 请问怎样获得datagrid1中某列下的所有内容,比如获得“路径”下的所有内容到一个text文本中

解决方案 »

  1.   

    遍历DataGrid控件绑定的记录集该字段,一一写入文本文件。
      

  2.   

    其实首先要搞清楚你的datagrid控件中的内容是从哪里来的,比如是绑定的是数据库中的某一张表的话你可以这样做.Option Explicit
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sSql As String
    Dim cnStr As StringPrivate Sub Form_Load()
    cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
    & App.Path & "\db1.mdb;Persist Security Info=False" 'db1.mdb 为你的数据库名字,目录在你的应用程序当前目录
    cn.ConnectionString = cnStr
    cn.Open
    End SubPrivate Sub Command1_Click()
    sSql = "select 路径 from tbname"   '这里的tbname 就是你数据库中的表名
    rs.Open sql, cn, 3, 3
    Do While rs.EOF = False
    Text1.Text = Text1.Text & rs("路径") ' 其实这里用list更直观点.
    rs.MoveNext
    Loop
    End Sub不知道这样是不是你想要的效果.
      

  3.   

    datagrid1 与access 数据库绑定,我是想在进行查询后将 datagrid1中显示出来的查询结果,倒出到文本中
      

  4.   

    将2楼代码下句Text1.Text = Text1.Text & rs("路径") ' 其实这里用list更直观点.修改为:Text1.Text = Text1.Text & rs("路径") & vbCrLf 并设置文本框的MultiLine属性为True