解决表格复制问题

dragon3150

小生近来就碰到一个问题。
需用创建多个表格，但是好容易一个表格列宽，固定项名称调整好了。
复制却成了问题。
只能复制表格的长宽。其他的内容都不能复制。
等于说还得重新再编辑一遍。
如果说，你需要创建多个表格的话，这项工作就变得繁琐起来了。

好在，表格有这些相关代码，可以解决这个问题。
我们调整好一个表格后。然后再复制多个。

接下来，我们在界面初始化的时候，写下如下代码

1. 功能 初始化()
   
2.    
   
3.    
   
4.     //设置表格123的,内容和列宽跟表格0一致
   
5.     //i<19,就是你的表格0的列数
   
6.     表格="表格1"
   
7.     遍历(i=0;i<19;i++)
   
8.         表格.设置内容(表格,0,i,表格.获得内容("表格0",0,i))
   
9.         表格.设置列宽(表格,i,表格.获得列宽("表格0",i))
   
10.     遍历结束
    
11.    
    
12.     表格="表格2"
    
13.     遍历(i=0;i<19;i++)
    
14.         表格.设置内容(表格,0,i,表格.获得内容("表格0",0,i))
    
15.         表格.设置列宽(表格,i,表格.获得列宽("表格0",i))
    
16.     遍历结束
    
17.    
    
18.     表格="表格3"
    
19.     遍历(i=0;i<19;i++)
    
20.         表格.设置内容(表格,0,i,表格.获得内容("表格0",0,i))
    
21.         表格.设置列宽(表格,i,表格.获得列宽("表格0",i))
    
22.     遍历结束
    
23.    
    
24. 
    
25.    
    
26. 功能结束

复制代码

只是抛砖引玉，如需要拷贝其他属性，可以继续添加。代码

b44412545

顶LZ