Foxtable(狐表)用户栏目专家坐堂 → 如何在最后一行非空时自动添加一行?


  共有1882人关注过本帖树形打印复制链接

主题:如何在最后一行非空时自动添加一行?

美女呀,离线,留言给我吧!
意悠心轻
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:3358 威望:0 精华:0 注册:2016/1/31 16:04:00
如何在最后一行非空时自动添加一行?  发帖心情 Post By:2016/6/2 21:46:00 [只看该作者]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:3358 威望:0 精华:0 注册:2016/1/31 16:04:00
  发帖心情 Post By:2016/6/2 22:18:00 [只看该作者]

    谢谢,我刚才也找过最后一行的编码写法,弄来弄去,就是不会这样写。
[此贴子已经被作者于2016/6/3 8:57:02编辑过]

 回到顶部