怎么用程序自定义窗体显示字段

建议将子窗体改成列表框,操作起来会比较方便

Dim str    As String
    Dim ctl    As Control
    For I = 0 To Me.List选中字段名.ListCount - 1
        str = str & Me.List选中字段名.Column(0, I) & ","
    Next
    str = Left(str, Len(str) - 1)

listbox.rowsource="select " & str & " from 晨星基金列表"

如果非要用子窗体,在设计模式打开子窗体,循环里面的控件,没有选中的就进行隐藏,前提是你的控件命名要规范,有规律 

   DoCmd.OpenForm "窗体-晨星基金列表", acDesign
    For Each ctl In Forms("窗体-晨星基金列表").Controls
        Debug.Print ctl.Name
        If InStr(1, str, ctl.Name & ",") < 1 Then ctl.Visible = False
    Next
    Forms("窗体-晨星基金列表").Form.RecordSource = "select " & str & " from 晨星基金列表"
    DoCmd.Close acForm, "窗体-晨星基金列表", acSaveYes