已有23人关注
VB从入门到精通第三版12.33 用listview控件+数据表创建报表视图 从哪添加房间信息啊,求高人指点
发表在VB答疑区 2016-09-15
是否精华
版块置顶:
   Option Explicit
Private Sub Form_Load()
   '建立一个ADO数据连接
   Dim cnn As New ADODB.Connection
   Dim rs As New ADODB.Recordset
   '建立一个连接字符串
   '这个连接串可能根据数据库配置的不同而不同
   cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kfgl.mdb;Persist Security Info=False"
   '建立数据库连接
   cnn.Open
   rs.Open "select * from kf", cnn
   If rs.EOF Then Exit Sub
   '网格行
   ListView1.GridLines = True


   '采用报表显示模式
   ListView1.View = lvwReport
   Dim ListX As ListItem
   Dim ListSubX As ListSubItem
   Dim ColumnX As ColumnHeader
   Dim i As Integer
   '填充表头
   For i = 0 To rs.Fields.Count - 1
       Set ColumnX = ListView1.ColumnHeaders.Add
       ColumnX.Text = rs.Fields(i).Name
       ColumnX.Width = ListView1.Width / rs.Fields.Count
   Next i
   '填充数据
   Do Until rs.EOF
       '添加一行
       Set ListX = ListView1.ListItems.Add
       ListX.Text = rs.Fields(0).Value
       For i = 1 To rs.Fields.Count - 1
           Set ListSubX = ListX.ListSubItems.Add
           ListSubX.Text = rs.Fields(i).Value
       Next i
       rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
   cnn.Close
   Set rs = Nothing
End Sub
请问怎样添加房间号、房间类型、楼层、房态等文字信息以及下面的行信息?
分享到:
精彩评论 1
淡.印象
学分:323 LV5
TA的每日心情
学习Python
2020-11-23 22:17:24
2016-09-22
沙发
读者您好:

本书其他章节讲解了有关数据添加、修改和删除的方法,你可以参考。
首页上一页 1 下一页尾页 1 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照