你好,欢迎来到电脑编程技巧与维护杂志社! 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 网络与通信
关系数据库的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

  推荐精品文章

·2024年6月目录 
·2024年5月目录 
·2024年4月目录 
·2024年3月目录 
·2024年2月目录 
·2024年1月目录
·2023年12月目录
·2023年11月目录
·2023年10月目录
·2023年9月目录 
·2023年8月目录 
·2023年7月目录
·2023年6月目录 
·2023年5月目录

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

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备14022230号-1,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区远大路20号宝蓝大厦E座704,邮编:100089