以文本方式查看主题

-  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=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编辑过]