动态生成窗体

w2lp

Dim strSelect As String
    Dim strWhere As String
   
    strSelect = ""
    strWhere = ""
        '判断要显示的字段
    If Me.Check1 = True Then
        strSelect = strSelect & "Email,"
    End If
   
    If Me.Check2 = True Then
        strSelect = strSelect & "Add,"
    End If
   
    If Me.Check3 = True Then
        strSelect = strSelect & "Ctc,"
    End If
   
    If Me.Check4 = True Then
        strSelect = strSelect & "Region,"
    End If
   
    If Me.Check5 = True Then
        strSelect = strSelect & "Tel,"
    End If
   
    If Me.Check6 = True Then
        strSelect = strSelect & "Fax,"
    End If
   
    If Me.Check7 = True Then
        strSelect = strSelect & "product,"
    End If
   
    If Me.Check8 = True Then
        srSelect = strSelect & "brands,"
    End If
   
    If Me.Check9 = True Then
        strSelect = strSelect & "Webseit,"
    End If
   
    If Me.Check10 = True Then
        strSelect = strSelect & "Halle,"
    End If
   
    If Me.Check11 = True Then
        srSelect = strSelect & "Stand,"
    End If
   
    If Me.Check12 = True Then
        strSelect = strSelect & "Messe,"
    End If
       '判断选择条件
    If Not IsNull(Me.Region) = True Then
        strWhere = strWhere & "C_Info.Region = Me.Region AND "
    End If
   
    If Not IsNull(Me.Product) = True Then
        strWhere = strWhere & "C_Info.Product = Me.Product AND "
    End If
   
    If Not IsNull(Me.Cname) = True Then
        strWhere = strWhere & "C_Info.Cname = Me.Cname AND "
    End If
   
    If Len(strWhere) > 0 Then
      '有输入条件
      strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
   
    If Len(strSelect) > 0 Then
      '有查询条件
      strSelect = Left(strWhere, Len(strWhere) - 1)
  End If
   
我想做个如下查询
Select strSelect
From C_Info
Where strWhere
然后把结果动态生成一个窗体显示出来

p51219

支持原创

goto2008

andymark    不错哦，学习[:36]

w2lp

[:12] [:12] 非常感谢

andymark

供参考

w2lp

我也不知道怎么弄 不管什么方法 只要能实现我所需要的功能就行

tmtony

在MDE不能动态生成控件,也不支持控件数组,这是Access最不好的地方

咱家是猫

动态生成窗体?有意义吗?在MDE里全玩完.不如显示出查询得了
要不在窗体里预设一定量的控件,在打开时重新布局各控件数据来源及显示

w2lp

附件