请教斑竹！

jonny

我的ACCESS程序完成之后才发现在窗体中浏览由交叉查询产生的数据表视图竟然不能够显示新的列。
我想若是在窗体中加上一些未绑定的控键这个问题应该可以解决，但由于能力有限，试过几次均未成功，斑竹能否给我一个例子，让我参考参考！

zhengjialon

必须有数据才能够显示新的列，否则会没有。对不起，手上暂时没有例子。

wangxin1978

Static p(21) As Control, q(21) As Control, i As Integer
    Dim MySet As recordset
    Dim mydb As Database
    Set mydb = DBEngine.Workspaces(0).Databases(0)
    Set MySet = mydb.OpenRecordset("print_prepare")
    Dim control_left As Integer
    control_left = 2000
    MySet.MoveFirst
    i = 3
    Do Until MySet.EOF
        i = i + 1
        If MySet!table_name = "table_name" Then
            If MySet!yes_no = True Then
                p(i).Visible = True
                p(i).ControlSource = MySet!field_name
                q(i).caption = MySet!field_desc
                q(i).Visible = True
                p(i).width = MySet!control_width
                p(i).Left = control_left
                q(i).width = MySet!control_width
                q(i).Left = control_left
            Else
                p(i).Visible = False
                p(i).ControlSource = ""
                q(i).Visible = False
                p(i).width = 0
                p(i).Left = control_left
                q(i).width = 0
                q(i).Left = control_left
            End If
        control_left = control_left + MySet!control_width
        End If
        MySet.MoveNext
    Loop
    MySet.close


希望上面代码能够给你启发。

jonny

多谢！我看看先。