| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 新增行默认赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3175) |
| -- 作者：baoxyang -- 发布时间：2009/6/17 10:49:00 -- 新增行默认赋值 表A，以日期默认排序（升序），新增一行时，列A自动赋值为列A为最大日期。请教如何实现？ |
| -- 作者：狐狸爸爸 -- 发布时间：2009/6/17 10:55:00 -- DataRowAdding代码 With Tables("表A") e.datarow("日期") = .Rows(.Rows.Count-1)("日期") End With |
| -- 作者：baoxyang -- 发布时间：2009/6/17 11:39:00 -- OK |
| -- 作者：yangming -- 发布时间：2009/6/17 11:55:00 -- 直接在表 DataRowAdding 事件中这样写不行吗?e.datarow("日期") = .Rows(.Rows.Count-1)("日期") |
| -- 作者：狐狸爸爸 -- 发布时间：2009/6/17 11:58:00 -- 呵呵，不用With的话，上面的代码要出错的呢。 |
| -- 作者：yangming -- 发布时间：2009/6/17 12:00:00 -- 以下是引用狐狸爸爸在2009-6-17 11:58:00的发言：
呵呵，不用With的话，上面的代码要出错的呢。 噢,知道了,呵呵 |
| -- 作者：八婺 -- 发布时间：2009/6/17 12:03:00 -- 不用with，除非 e.datarow("日期") = CurrentTable.Rows(CurrentTable.Rows.Count-1)("日期") 否则要出错。 |
| -- 作者：yangming -- 发布时间：2009/6/17 12:13:00 -- 我这个是放按钮中的,必须是2才对,呵呵 Dim r As Row = CurrentTable.Rows.AddNew() Dim r1 As Row = CurrentTable.Rows(CurrentTable.Rows.Count-2) r("第一列") = r1("第一列") 当然也可以不用r1 Dim r As Row = CurrentTable.Rows.AddNew() r("第一列") = CurrentTable.Rows(CurrentTable.Rows.Count-2)("第一列") [此贴子已经被作者于2009-6-17 12:14:27编辑过]
|