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

Next i

End If

' -----调用过程Fillgrid,向Grid2中添加查询到的记录

   Fillgrid  

 

End Sub

6.Combo1的单击事件

Private Sub Combo1_Click(Index As Integer)

' ----控制Combo1(4)Combo1(1)同步,并根据Combo1(1)中选的字段不同,向Combo1(3)中添加这一字段下的所有不重复的值

    Dim tempsql As String

   

    If Index = 1 Then

        Combo1(4).ListIndex = Combo1(1).ListIndex

        Grid1.TextMatrix(Grid1.Row, 4) = Combo1(4).Text

        tempsql = "SELECT DISTINCT " & Combo1(4).Text & " from " & strtable

        opencn

        openrs tempsql

        closecn

        fillcom1 Combo1(3), rs

    End If

    Grid1.TextMatrix(Grid1.Row, Index) = Combo1(Index).Text

    If Grid1.Text = "True" Then

        Grid1.Text = "1"

    ElseIf Grid1.Text = "False" Then

        Grid1.Text = "0"

    End If

End Sub

7.Command1的单击事件

Private Sub Command1_Click(Index As Integer)

    Dim i As Integer

    Select Case Index

        Case 0             '清除条件

            Grid1.Rows = 2

            For i = 0 To 4

                Grid1.TextMatrix(1, i) = ""

            Next i

        Case 1            '增加行

            Grid1.Rows = Grid1.Rows + 1

        Case 2            '删除行

            If Grid1.Rows > 2 Then

                Grid1.Rows = Grid1.Rows - 1

            Else

                For i = 0 To 4

                    Grid1.TextMatrix(1, i) = ""

                Next i

            End If

    End Select

End Sub

  推荐精品文章

·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