以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口按键 复制新增无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100233)
--  作者：zoyong
--  发布时间：2017/5/7 16:53:00
--  窗口按键 复制新增无效
代码

DataTables("投标立项").replacefor("_Locked",True)
Tables("投标立项").save

Dim t As Table = Tables("投标立项")
Dim cr As Row = t.rows(t.Position-1)
Dim nr As Row = t.addNew
nr("区域") = cr("区域")
nr("资质") = cr("资质")
nr("标书组成") = cr("标书组成")
nr("报名日期") = cr("报名日期")
nr("开标时间") = cr("开标时间")



窗口按键    复制新增无效  求解！
现在只复制了控件名   不是控件里面的内容
--  作者：zoyong
--  发布时间：2017/5/7 17:08:00
--  
Dim t As Table = Tables("投标立项")
Dim cr As Row = Tables("投标立项").Rows(Tables("投标立项").Rows.Count - 1)
Dim nr As Row = Tables("投标立项").AddNew()
nr("区域") = cr("区域")
nr("资质") = cr("资质")
nr("标书组成") = cr("标书组成")
nr("报名日期") = cr("报名日期")
nr("开标时间") = cr("开标时间")

改成这样可以用    但不是当前行   有点色老师在吗   帮忙看看
我的表是按报名日期排序了   上面的代码永远都是复制最后一行的，我想复制当前行或第一行
--  作者：有点色
--  发布时间：2017/5/7 17:11:00
--  
Dim t As Table = Tables("投标立项")
Dim cr As Row = Tables("投标立项").current
Dim nr As Row = Tables("投标立项").AddNew()
nr("区域") = cr("区域")
nr("资质") = cr("资质")
nr("标书组成") = cr("标书组成")
nr("报名日期") = cr("报名日期")
nr("开标时间") = cr("开标时间")
--  作者：zoyong
--  发布时间：2017/5/7 17:11:00
--  
我搞定了