你好,欢迎来到电脑编程技巧与维护杂志社! [免费注册][请登录 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 网络与通信
关系数据库的VB通用查询编程技巧(三)
 

'---设置Grid20n-1列的对齐方式和文本内容

    For i = 0 To n - 1

   Grid2.FormatString = Grid2.FormatString & " |<  " & rs.Fields(i).Name

Next

'-------------------------------------------------------

    Grid2.Rows = m + 1   '设置Grid2的总行数

Grid2.Cols = n + 1   '设置Grid2的总列数

'---将查询到的记录添加到Grid2

For i = 1 To m     '------------------------------行循环

        For j = 1 To n     '=====================列循环

            Grid2.TextMatrix(i, j) = rs.Fields(j - 1).Value & ""

            If m <= 100 Then

                If i Mod 2 = 0 Then

                    Grid2.Col = j

                    Grid2.Row = i

                    Grid2.CellBackColor = &HFEFBDE

                End If

            End If

        Next j      '=================================

        rs.MoveNext

Next i         '------------------------------------

'---------------Grid2中添加查询到的记录

    If strsumdemand <> "" Then

        opencn

        Grid2.Rows = Grid2.Rows + 1

        Grid2.TextMatrix(Grid2.Rows - 1, 1) = "合计"

        Set rssum = New ADODB.Recordset

        rssum.Open strsumdemand & strcondition, cn, adOpenKeyset, adLockReadOnly

        For j = 1 To n

            For i = 0 To rssum.Fields.Count - 1

                If Grid2.TextMatrix(0, j) = rssum.Fields(i).Name Then

                    Grid2.TextMatrix(Grid2.Rows - 1, j) = _

& rssum.Fields(i).Value & ""

                End If

            Next i

        Next j

        closecn

    End If

    Grid2.MergeCells = flexMergeRestrictColumns

    Grid2.MergeCol(1) = True

  推荐精品文章

·2019年9月目录 
·2019年8月目录
·2019年7月目录
·2019年6月目录
·2019年5月目录
·2019年4月目录    
·2019年3月目录   
·2019年2月目录   
·2019年1月目录  
·探析云计算下应用软件用户数据安全问题
·地理空间集束线可视化表达
·Android智能净水机APP开发(一)
·2018年12月目录  
·springAOP的思想和设计以及实现

  联系方式
TEL:010-82561037
Fax: 010-82561614
QQ: 100164630
Mail:gaojian@comprg.com.cn

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备06048724号,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区长春桥路5号6号楼1209室,邮编:100089