以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制粘贴代码不可用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7271)
--  作者：lihe60
--  发布时间：2010/6/2 8:25:00
--  复制粘贴代码不可用
CurrentTable.Select(0,0)
syscmd.Edit.Copy()
messagebox.show(1)
CurrentTable.Select(3,0)
Syscmd.Edit.Paste()
--  作者：狐狸爸爸
--  发布时间：2010/6/2 8:28:00
--  
这是正常的，复制粘贴的系统命令，只是模拟Ctrl+c和Ctrl+v按键而已，只有焦点在表格才有效
--  作者：lihe60
--  发布时间：2010/6/2 12:07:00
--  

如何通过代码把第一行、第一列的数据粘贴到第三行、第一列？把第一行的数据全部粘贴到第三行？

 

[此贴子已经被作者于2010-6-2 12:08:05编辑过]
--  作者：狐狸爸爸
--  发布时间：2010/6/2 12:14:00
--  

Dim c1 As String = 第一行第一列的内容

Dim c2 As String = 第三行第一列的内容

第一行第一列的内容 = c2

第三行第一列的内容 = c1

 

 

 
--  作者：czy
--  发布时间：2010/6/2 12:16:00
--  
Dim dt As Table = CurrentTable
dt.Select(0,0)
dt.Current("第三列") = dt.Current("第一列")
--  作者：czy
--  发布时间：2010/6/2 12:19:00
--  

楼上理解错误。

 

Dim dt As Table = Tables("表B")
For i As integer = 0 to 2
    if i = 2 Then
        dt.Rows(i)("第三列") = dt.Rows(0)("第一列")
    End If
Next

[此贴子已经被作者于2010-6-2 12:20:23编辑过]
--  作者：mr725
--  发布时间：2010/6/2 16:35:00
--  

这样是否是个偏方？

 

dim dd as string = CurrentTable.Text(0,0)
CurrentTable.value(2,0) = dd
--  作者：lihe60
--  发布时间：2010/6/2 18:16:00
--  

看到诸位的热情，觉得狐表大有希望。

如何通过代码把第一行的内容复制到第三行？
--  作者：狐狸爸爸
--  发布时间：2010/6/2 18:26:00
--  

基本概念清楚了,这样的问题很简单的:

 

 

Dim  r1 As Row = CurrentTable.Rows(0) \'第一行
Dim  r3 As Row = CurrentTable.Rows(3) \'第三行

For Each c As Col In CurrentTable.Cols  \'逐列复制

   r3(c.Name) = r1(c.Name)

Next
--  作者：lihe60
--  发布时间：2010/6/2 22:10:00
--  
以下是引用狐狸爸爸在2010-6-2 18:26:00的发言：

基本概念清楚了,这样的问题很简单的:

 

 

Dim  r1 As Row = CurrentTable.Rows(0) \'第一行
Dim  r3 As Row = CurrentTable.Rows(3) \'第三行

For Each c As Col In CurrentTable.Cols  \'逐列复制

   r3(c.Name) = r1(c.Name)

Next

虽然不简洁，但还是可以达到目的的。