关于对隐藏列权限控制的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于对隐藏列权限控制的问题

共有13501人关注过本帖树形打印复制链接主题：关于对隐藏列权限控制的问题

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/6/25 10:39:00 [显示全部帖子]

禁止复制

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/6/25 10:43:00 [显示全部帖子]

自己做个复制按钮，简单方便。

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/6/25 12:57:00 [显示全部帖子]

Dim v as String
Dim lv As String
With CurrentTable
    For r As Integer = .TopPosition To .BottomPosition
        lv = ""
        For c As Integer = .LeftCol To .RightCol
            If .Cols(c).Visible Then
               if .Rows(r).IsNull(c) Then
                   lv = lv & ControlChars.Tab & ""
               Else
                   lv = lv & ControlChars.Tab & .Rows(r)(c).ToString
                End If
            End If
        Next
       v = v & lv.Trim(ControlChars.tab) & ControlChars.cr
    Next
End With
System.Windows.Forms.ClipBoard.SetText(v.Trim(ControlChars.cr))