主题：代码的问题

 无法做到你这种限制的，这样做也是没有意义的。

 每一行的单位都可以不同，点不同行，那么就能看到不同的列，无法做到你预想的看不到数据的效果。

 去编写prepareEdit事件

http://www.foxtable.com/help/topics/2255.htm

如果是要隐藏列，就去编写表的currenChanged事件

Dim r As Row = e.Table.Current
If r IsNot Nothing Then
    Dim K As String = r("付款单位") '定义为字符串
    Dim flag As Boolean = True
    Select Case K
       
        Case "高科控股集团"
           
            If User.IsRole ("子公司财务") Then
                flag = False
            End If
            Tables("ZJSQB").Cols("财务1").Visible = flag
            Tables("ZJSQB").Cols("财务2").Visible = flag
            Tables("ZJSQB").Cols("财务3").Visible = flag
           
            Tables("ZJSQB").Cols("财务4").Visible = flag
        Case "高科开发建设","高科置业发展","贵州望城投资"
            If User.IsRole( "总工办")  OrElse User.IsRole( "集团财务")OrElse User.IsRole( "业务副总")OrElse User.IsRole( "资金副总")OrElse User.IsRole( "集团董事长")Then
                flag = False
            End If
            Tables("ZJSQB").Cols("总工办").Visible = flag
            Tables("ZJSQB").Cols("JTZGB1").Visible = flag
            Tables("ZJSQB").Cols("JTZGB2").Visible = flag
           
            Tables("ZJSQB").Cols("JTZGB3").Visible = flag
           
           
           
            Tables("ZJSQB").Cols("集团财务1").Visible = flag
            Tables("ZJSQB").Cols("JTCWB1").Visible = flag
            Tables("ZJSQB").Cols("JTCWB2").Visible = flag
           
            Tables("ZJSQB").Cols("JTCWB3").Visible = flag
           
            Tables("ZJSQB").Cols("集团副总").Visible = flag
            Tables("ZJSQB").Cols("资金副总").Visible = flag
            Tables("ZJSQB").Cols("董事长1").Visible = flag
           
            Tables("ZJSQB").Cols("董事长2").Visible = flag
           
            Tables("ZJSQB").Cols("董事长3").Visible = flag
           
    End Select
   
End If

For Each t As Table In Tables
    If t.Name = "表A" Then
        t.Visible = True
    Else
        t.Visible = False
    End If
Next