老师，我一个表，做垂直表在转换确实太麻烦，就做的水平表，我打开表时，隐藏所有结算情况（第1-24期）的列，筛选出分包队伍时，隐藏已经计算的期数列，比如张三，隐藏1-3期结算的列，显示4期的列，隐藏5-24期的列，，李四，隐藏1-2期结算的列，显示3期的列，隐藏4-24期的列，怎么来写呢，做了个示例，请老师看看？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

老师，挨个判断在隐藏我知道，这样太繁琐，结算情况我是按照第1、第2.....第24期这样命名的，有什么简单点的方法不。

需要判断已经结算的最大期数，结算了的不隐藏，未结算的第1期不隐藏，后面的隐藏

例如示例里面，张三已结算的最大期数为第3期，李四为第2期

在筛选张三的时候，计量期数就只显示第4期，筛选出李四时，计量期数就只显示第3期，其余结算期数都不显示

1楼上传了示例

请老师给写一下，看该怎么写呢，代码写到增加结算期数的一个按钮里面的

If e.Form.Controls("项目名称").value = "" Then
    e.Cancel = True
    msgbox("请先选择项目名称")
    If e.Form.Controls("分包队伍").value = "" Then
        e.Cancel = True
        msgbox("请先选择需要结算的分包队伍")
    Else
        For Each dc As Col In Tables("分包结算表").Cols

           
           
            Tables("分包结算表").Cols("第4期数量").Visible = True   \'找到本期要结算的期数显示
            Tables("分包结算表").Cols("第4期合价").Visible = True   \'找到本期要结算的期数显示

            Tables("分包结算表").Cols("第4期数量").Move(7) \'移动列到制定位置
            Tables("分包结算表").Cols("第4期合价").Move(8) \'移动列到制定位置
            
        Next
    End If
End If

        For Each dc As Col In Tables("分包结算表").Cols

if dc.name like "第*" then

           if Tables("分包结算表").compute("count(" & dc.name & ")", dc.name & " is not null") = 0 then

dc.Visible =false

else

dc.Visible =true

endif

endif

        Next