主题：如何拆分字符插入并复制到行

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:8899.egd

任意多个编号这样看看？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:8899.egd

按钮公式分解解释：
1、AddCol(gridname,"p",1, False) And
增加一数值型列“p”；

2、EvalFor(GridName,"p","Len([抄表时间])-Len(Substitute([抄表时间],""/"",""""))") And
重算“p”列，得到“抄表时间”列各行包含“/”的数量；

3、SetVariable("%A%",1) And SetVariable("%B%",Rows) And
对预设数值变量“%A%”赋值为1，"%B%"赋值为当前的总行数Rows；

4、Loop("1>0", "Move([%A%],Col) And Eval(mid(Rept("" And CloneRow()"",[p]),5)) And SetVariable(""%A%"",[%A%]+1)",[%B%]) And
使用循环函数Loop()，对每一行进行CloneRow()“克隆”。每一行进行CloneRow()“克隆”的数量由“p”决定：
其中公式是Eval(mid(Rept(" And CloneRow()",[p]),5)。
注意！这里的循环条件"1>0"永远满足，而且行随着克隆不断增加，如何控制循环结束？使用了预设变量[%B%]。

5、EvalFor(GridName,"p","CountFor(GridName,""ID"",""="",[ID],""抄表时间"",""="",[抄表时间],1,Row)") And
再重算“p”列，得到“抄表时间”列各行“克隆”后包含“/”的行的“顺序”；

6、EvalFor(GridName,"抄表时间","Split([抄表时间],""/"",[p])") And
重算"抄表时间"列，按“顺序”取出"抄表时间"。

7、DeleteCol(GridName,"p") And
删除"p"列。

8、SortCol(GridName,"ID",1) And
按"ID"排序。

9、EvalFor(GridName,"ID","Row") And
重算"ID"。

10、SetLabel(" ","总计份数:"+Text(Rows)) And SetLabel("  ","OK!")
给“标签”赋值。