以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于按钮。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93975)
--  作者：rxfmrqq
--  发布时间：2016/12/12 15:35:00
--  关于按钮。

老师，我在按钮的click目录中，想实现，增加一行，同时复制上一行，“单据编号”“客户”“批发”三项内容。并填入所添加的本行。

那么我在代码后还要添加什么？ 或者告诉我参考内容在哪里也行。  没有一点头绪。

 

Dim dr As DataRow
dr = DataTables("销售明细").AddNew()
dr("时间") = Date.Today
With Tables("销售明细")
    .Position = .Position + 1
End With
Tables("销售明细").Current.Locked = True
--  作者：有点蓝
--  发布时间：2016/12/12 15:44:00
--  

Dim drold As Row = Tables("销售明细").current
Dim dr As Row
dr = Tables("销售明细").AddNew()
dr("时间") = Date.Today
If drold isno Nothing Then
    dr("单据编号") = drold("单据编号")
    dr("客户") = drold("客户")
End If
dr.Locked = True
--  作者：rxfmrqq
--  发布时间：2016/12/12 15:48:00
--  

谢谢老师。