以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在最后一行非空时自动添加一行?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85796)

--  作者:意悠心轻
--  发布时间:2016/6/2 21:46:00
--  如何在最后一行非空时自动添加一行?
    我知道在表属性把自动添加行设为True可在最后一行最后的单元格按回车自动添加一行,可我这表最后一行最后的单元格是自动填充的逻辑选项,不需要专门操作,如为了自动添加一行而把界面拉过去按回车有点麻烦,我想设条件如果最后一行日期或姓名不为空则自动添加一行,应如何编写代码?
以前在按钮里有添加行的代码,请教现在应如何改?
DataTables("冲压车间工资表").AutoAddNew = True
DataTables("冲压车间工资表").AddNew(50)

[此贴子已经被作者于2016/6/26 15:47:57编辑过]

--  作者:大红袍
--  发布时间:2016/6/2 21:53:00
--  

 AfterEdit事件

 

If e.Col.name = "日期" OrElse e.Col.name = "姓名" Then
    If e.Row.Index = e.Table.Rows.Count-1 Then
        If e.Row.IsNull(e.Col.name) = False Then
            e.Table.DataTable.AddNew
        End If
    End If
End If


--  作者:意悠心轻
--  发布时间:2016/6/2 22:18:00
--  
    谢谢,我刚才也找过最后一行的编码写法,弄来弄去,就是不会这样写。
[此贴子已经被作者于2016/6/3 8:57:02编辑过]