主题：当从EXECL中一次性地复制多列数据到当前表中的时候

这样最好了,有个选择的地方～  那就更强了····

但是还有个问题： 就是当excel本身也有隐藏列时，剪贴板上也就包含了excel其中的隐藏列数据了（假使操作人也不会使用excel的只复制显示列），那么即使foxtable有个这样的选项，也应该给出个提示：请确认复制的内容不包含excel等的隐藏列！   无论如果这样就比较复杂了。。。

这个问题好解决： 可以恢复原移动的隐藏列回到原来的位置，或者粘贴后执行一下表视图代码即可。

我来练练手，水平有限代码较啰嗦。

 

Dim s As String = System.Windows.Forms.ClipBoard.GetText() '获取剪贴板中的数据
Dim s1 As String = s.Replace(chr(13) & chr(10),chr(9)) '将换行符和回车符替换为Tab符
Dim t As Table = CurrentTable
Dim Vals(),Vals1(),Vals2() As String
Vals = s1.split(chr(9)) '获取单元格个数
Vals1 = s.split(chr(13) & chr(10)) '获取剪贴板中行的数量
Dim i,c As Integer
For n As Integer = t.Position To t.Position + Vals1.Length - 2 '从焦点所在行开始循环,循环次数为剪贴板中行数减1
    c = 0
    For Each cl As Col In t.Cols
        If cl.Visible Then '排除隐藏列
            c = c + 1
            if c < Vals1(0).split(chr(9)).Length + 1 Then '如果被标记的列小于剪贴板中的列数
                if n < t.Rows.Count Then '如果当前表中还有行可以写入
                    if i <= Vals.Length - 1 Then '如果剪贴板中还有未写完的数据
                        t(n,cl.name) = Vals(i) '则写入数据
                        i = i + 1
                    End If
                End If
            End If
        End If
    Next
Next

 

我在C版的基础上改一下

 

粘贴排除隐藏列：

 

Dim t As Table = CurrentTable
Dim s As String = System.Windows.Forms.ClipBoard.GetText()
Dim Lines() As String = s.split(chr(13) & chr(10))
Dim Count As Integer = Math.Min(Lines.Length , t.Rows.Count - t.TopPosition) - 1
For n As Integer = 0 To Count
    Dim Line() As String = Lines(n).Split(chr(9))
    Dim r As Integer = t.TopPosition + n
    Dim vp As Integer = 0
    For c As Integer = t.LeftCol to t.Cols.Count - 1
        If t.Cols(c).Visible Then
            If vp < Line.Length  Then
                t.Rows(r)(c) = Line(vp)
            End If
            vp = vp + 1
        End If
    Next
Next

 

粘贴考虑隐藏列：

 

Dim t As Table = CurrentTable
Dim s As String = System.Windows.Forms.ClipBoard.GetText()
Dim Lines() As String = s.split(chr(13) & chr(10))
Dim Count As Integer = Math.Min(Lines.Length,t.Rows.Count - t.TopPosition) - 1
For n As Integer = 0 To Count
    Dim Line() As String = Lines(n).Split(chr(9))
    Dim r As Integer = t.TopPosition + n
    Dim vp As Integer = 0
    For c As Integer = t.LeftCol to t.Cols.Count - 1
        If vp < Line.Length  Then
            t.Rows(r)(c) = Line(vp)
        End If
        vp = vp + 1
    Next
Next

C版的可以,只是都从第一列开始粘贴········

 

老大的也有问题，看下图：

 
此主题相关图片如下：未命名.jpg

这个没有撤销和反撤销的

 

嗯，我只考虑了从焦点行开始，还真没考虑到从指定列开始粘贴。

您的代码我测试后，直接的结果是17楼的第一个图，经过撤销和反撤销（即恢复）后，就得到第二个图。。。。。

所以，在你代码后面加上：

Syscmd.Edit.Undo()
Syscmd.Edit.Redo()
for d as integer = 0 to currenttable.count-1
    currenttable(d,0) = currenttable(d,0).trim(" ")
next

后，才能得到正确的结果： 

此主题相关图片如下：未命名0.jpg

上面的 for......next 是从第一列开始粘贴的，要从任何单元格开始粘贴就要改为：

For c1 As Integer = t.toprow to t.Cols.Count - 1       ‘或t.bottomrow －1
    currenttable(c1,t.LeftCol ) = currenttable(c1,t.LeftCol ).trim(" ")
next

经测试这个也有问题！