| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 求助 自定编号 克隆问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19574) |
| -- 作者：程兴刚 -- 发布时间：2012/5/15 7:51:00 -- 您想要重复的编码？ |
| -- 作者：程兴刚 -- 发布时间：2012/5/15 9:30:00 -- Syscmd.Row.Clone() CurrentTable.Current("订单编号") =CurrentTable.rows(CurrentTable.rows.Count-2)("订单编号") |
| -- 作者：狐狸爸爸 -- 发布时间：2012/5/15 11:11:00 -- 自己做个克隆行的按钮：
Dim r1 as row = Tables("xxx").Current Dim r2 As Row = Tables("xxx").AddNew() For Each c as Col in Tables("xxx").Cols r2(c.name) = r1(c.name) Next |
| -- 作者：程兴刚 -- 发布时间：2012/5/15 12:01:00 -- 以下是引用狐狸爸爸在2012-5-15 11:11:00的发言：
自己做个克隆行的按钮：
Dim r1 as row = Tables("xxx").Current Dim r2 As Row = Tables("xxx").AddNew() For Each c as Col in Tables("xxx").Cols r2(c.name) = r1(c.name) Next
您这个应该不行吧，DataColChanged事件还有代码，后面字段内容的变化，又把编号列给改写了！ |
| -- 作者：程兴刚 -- 发布时间：2012/5/15 20:14:00 -- Dim r1 as row = Tables("xxx").Current Dim r2 As Row = Tables("xxx").AddNew() r2("客户名称") = r1("客户名称") r2("客户地址") = r1("客户地址") r2("订单编号") =CurrentTable.rows(Cur rentTable.rows.Count-2)("订单编号") [此贴子已经被作者于2012-5-15 23:05:44编辑过]
|