| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3460 人关注过本帖
标题:不连接数据库,用数组给DataGrid赋值为什么不显示数据
取消只看楼主 加入收藏
烟雨袅袅
Rank: 6Rank: 6
来 自:星空雨际
等 级:侠之大者
威 望:1
帖 子:430
专家分:494
注 册:2007-11-26
结帖率:100%
收藏
 问题点数:0 回复次数:2 
不连接数据库,用数组给DataGrid赋值为什么不显示数据
不连接数据库,用数组给DataGrid赋值为什么不显示数据,哪里有问题


Private Sub Command1_Click()
         
          Dim i   As Integer
          Dim aa()     As String
          Dim adoRecordset   As ADODB.Recordset
          Set adoRecordset = New ADODB.Recordset
                     
           x = 2:   y = 8
          ReDim aa(x - 1, y - 1) As String
          For i = 0 To x - 1
                  For j = 0 To y - 1
                          aa(i, j) = i * 10 * j '数组赋值
                  Next j
          Next i
                    
          For i = 0 To x - 1                 '为Recordset2个字段,即为   DataGrid   添加2列
          adoRecordset.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
          Next i
         
          adoRecordset.Open
         
          For i = 0 To y - 1
                  adoRecordset.AddNew  ' 加8条记录,即为   DataGrid   添加8空行
          Next i
         
          adoRecordset.MoveFirst
         
          For j = 0 To y - 1
                  
                  For i = 0 To adoRecordset.Fields.Count - 1
                           adoRecordset.Fields(i).Value = aa(i, j) '数据输入记录集
                  Next i
           
                  adoRecordset.MoveNext
                 
          Next j
Set DataGrid1.DataSource = adoRecordset

End Sub


[[italic] 本帖最后由 烟雨袅袅 于 2007-12-9 15:02 编辑 [/italic]]

信息文件.rar (2.75 KB)
搜索更多相关主题的帖子: DataGrid赋值 数据库 Dim Recordset String 
2007-12-09 15:00
烟雨袅袅
Rank: 6Rank: 6
来 自:星空雨际
等 级:侠之大者
威 望:1
帖 子:430
专家分:494
注 册:2007-11-26
收藏
得分:0 
我试试看行不行
2007-12-09 15:29
烟雨袅袅
Rank: 6Rank: 6
来 自:星空雨际
等 级:侠之大者
威 望:1
帖 子:430
专家分:494
注 册:2007-11-26
收藏
得分:0 
原帖由 [bold][underline]purana[/underline][/bold] 于 2007-12-9 15:15 发表 [url=http://bbs.][/url]
如果用数组在Grid里显示的话.
使用MsFlexGrid更适合.




Dim Arr(5)     As String
  Dim i     As Integer
  Dim str     As String
  Arr(0) = "Jack"
  Arr(1) = "Male"
  Arr(2) = "Bei   Jin"
  Arr(3) = "Software   Eneger"
  Arr(4) = "33"
  Arr(5) = "Bad   Man"
   
          MSFlexGrid1.Cols = 6
            
          For i = 0 To UBound(Arr)
                  str = str & Arr(i) & vbTab
      
          Next
  MSFlexGrid1.AddItem str

可以实现了!
多谢purana
2007-12-09 15:35
快速回复:不连接数据库,用数组给DataGrid赋值为什么不显示数据
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016678 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved