以文本方式查看主题

-  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=82173)

--  作者:compaq000
--  发布时间:2016/3/13 8:56:00
--  [求助]增加行的时候如何让当前行第一列的内容等于最新添加行的第一列内容?
增加行的时候如何让当前行第一列的内容等于最新添加行的第一列内容?
请教下代码如何写?
[此贴子已经被作者于2016/3/13 8:56:31编辑过]

--  作者:黄训良
--  发布时间:2016/3/13 9:46:00
--  
Dim max As Integer
Dim dr As DataRow
max = CurrentTable .Compute("Max([_Identify])")
dr = CurrentTable.DataTable.Find("[_Identify] = \'" & max & "\'")
If dr IsNot Nothing
    CurrentTable.Current("第一列") = dr("第一列")
End If

--  作者:compaq000
--  发布时间:2016/3/13 11:36:00
--  


 

为啥不对啊?哪里有问题? 我勾选连续增加复选框,按保存按钮的时候,新增加一行,且所属工班名称直接等于上一条记录所属工班的名称。

[此贴子已经被作者于2016/3/22 18:38:19编辑过]

--  作者:Hyphen
--  发布时间:2016/3/14 9:20:00
--  
dim dr as row = tables("XX登记表").current
dim drnew as row =  tables("XX登记表").addnew
drnew("所属工班") = dr("所属工班")

--  作者:compaq000
--  发布时间:2016/3/14 14:17:00
--  
谢谢指点这个可以