运用ActiveX组件技术创建通用的查询控件

sp;Cbo.Text = Cbo.List(0)
End Sub

---- (8) 自 定 义 过 程: 给 右 列 组 合 框 置 值 - 根 据 左 列 组 合 框 中 表 的 列 名 置 相 应 的 列 值。

Private Sub LoadCboRight(ByVal Cbo As
ComboBox, ByVal ColName As String)
    If rs.EOF And rs.BOF Then
        MsgBox Tablename & "表中无记录!", 64, "查找条件:"
        Exit Sub
    End If    
    Cbo.Clear    
    Set rs1 = db.OpenRecordset _
("select DISTINCT " & ColName & " from " & Tablename)
    Do While Not rs1.EOF
        If Not IsNull(rs1(0)) Then
Cbo.AddItem rs1(0)
        End If
        rs1.MoveNext
    Loop    
    Cbo.Text = Cbo.List(0)
End Sub

---- (9) 自 定 义 函 数: 检 查 数 据 类 型。

Public Function CheckType(ByVal sType As String, _
            ByVal sValue As String) As String      
    Select Case sType
        Case dbBoolean
If sValue = ("true" Or "false" Or 0 Or 1) Then
     CheckType = CBool(sValue)
     Exit Function
End If
        Case dbByte
If IsNumeric(sValue) Then
     CheckType = CByte(sValue)
     Exit Function
End If
        Case dbInteger
If IsNumeric(sValue) Then
     CheckType = CInt(sValue)
     Exit Function
End If
        Case dbLong
If IsNumeric(sValue) Then
     CheckType = CLng(sValue)
     Exit Function
End If
        Case dbCurrency
If IsNumeric(sValue) Then
     CheckType = CCur(sValue)
     Exit Function
End If
        Case dbSingle
If IsNumeric(sValue) Then
     CheckType = CSng(sValue)
     Exit Function
End If
        Case dbDouble
If IsNumeric(sValue) Then
     CheckType = CDbl(sValue)
     Exit Function
End If
        Case dbDate
If IsDate(sValue) Then
     CheckType = "CDate(注释：" & sValue & "注释：)"
     Exit Function
End If
        Case dbText
CheckType = "注释