以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]复制行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24188)
--  作者：13636600695
--  发布时间：2012/10/7 11:52:00
--  [求助]复制行

谁帮我改一下代码，我要填充整行，但是这段代码只能填充一列

 

 

 

 

Dim tbl As Table = Tables("表A_Table1")
If tbl.Current IsNot Nothing Then
    Tables("表B").Current("第一列") = tbl.Current("第一列")
End If
Forms("表A").Close()
--  作者：blackzhu
--  发布时间：2012/10/7 12:05:00
--  
你的代码就是只有一列呀
--  作者：13636600695
--  发布时间：2012/10/7 12:34:00
--  
我不知道第二列第三列怎么加进去
--  作者：szp2012
--  发布时间：2012/10/7 12:55:00
--  
 

Dim tbl As Table = Tables("表A_Table1")
If tbl.Current IsNot Nothing Then
   For i As Integer = 0 To Tables("表A_Table1").Cols.Count-1

Tables("表B").Current(i) = tbl.Current(i)

Next

End If
Forms("表A").Close()
--  作者：13636600695
--  发布时间：2012/10/7 13:11:00
--  
谢谢啦
--  作者：hlheng
--  发布时间：2013/5/22 9:56:00
--  
以下是引用szp2012在2012-10-7 12:55:00的发言：
 

Dim tbl As Table = Tables("表A_Table1")
If tbl.Current IsNot Nothing Then
   For i As Integer = 0 To Tables("表A_Table1").Cols.Count-1

Tables("表B").Current(i) = tbl.Current(i)

Next

End If
Forms("表A").Close()

出现问题：

当表A和表B列顺序不一样时，数据复制错位，而且表B的结构是通过复制表A得来。无表达式列，数据类型、长度都一样了。

有什么办法能解决？
--  作者：XYT
--  发布时间：2013/5/22 9:59:00
--  

那你要保持表B和表A的顺序一样，或用调用其他表数据的方法来赋值表B

[此贴子已经被作者于2013-5-22 10:00:26编辑过]
--  作者：hlheng
--  发布时间：2013/5/22 10:04:00
--  
我试试，谢谢！