主题：关于对隐藏列权限控制的问题

是的，Excel 搞了个 Alt + ；来复制可见内容，是多此一举了，本来就应该复制可见的内容，如果要复制要包含隐藏的内容用此方法才对。

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))

学习！

经测试可以做到了，但有如下几个代码不明白什么意，能否说明一下呢，在帮助说明中找不到相关内容的。

.Cols(c).Visible
ControlChars.cr

.Cols(c).Visible   表示当前表的可见列···

ControlChars.cr   我不懂  ， 还有好几个我都不懂。 抄用就行了，除了你懂.net 和Vb等。

controlchars.cr就是chr(13)，也就是回车符

ControlChars.tab就是chr(10)，就是tab符号

我用纯foxtable做了一个，大家看看有什么问题没有：

dim nm,nm1 as string
Dim tb as Table = currenttable
with tb
    Dim dtb As New DataTableBuilder("ls")
    For Each cl As Col In tb.Cols 
        If cl.Visible Then
            if cl.index >= .leftcol and cl.index <= .rightcol
                dtb.AddDef(cl.name, GetType(String), 32)
                nm = nm & cl.name & ","
            End If
        End If
    Next
    dtb.Build()
    Tables("ls").addnew(.bottomrow-.toprow+1)
end with

with tb

    dim r as integer = .toprow
    dim l as integer = .leftcol
    for i as integer = .toprow to .bottomrow
        for c as integer = .leftcol to .rightcol
            If tb.cols(c).Visible Then
                tables("ls").rows(i-r)(.cols(c).name)= tb(i,c)

            end if
        next
    next
end with
MainTable= Tables("ls")
tables("ls").Select(0,0,tables("ls").count-1,tables("ls").cols.count-1)
Application.DoEvents
tables("ls").focus
Syscmd.Edit.Copy()
Application.DoEvents
'DataTables.Delete("ls")   '***可以选择删除临时表，

 

但速度慢：要1～2秒钟····   作为练习了～   

12楼不就是纯foxtable的吗？

 

 

 

因为很多词在帮助中都搜索不到，如：

ControlChars
ToString
ControlChars.cr
SetText
所以我就认为不是纯的foxtable用语了，你老家伙总是藏着点什么不吐出来····     弄得咱们晕死了～～～   呵呵。。

吐不完的，再来两万页的帮助，也吐不完。

foxtable的帮助只能讲最常用的。