主题：新增行默认赋值

表A，以日期默认排序（升序），新增一行时，列A自动赋值为列A为最大日期。请教如何实现？

DataRowAdding代码

With Tables("表A")
          e.datarow("日期") = .Rows(.Rows.Count-1)("日期")
End With

OK

直接在表

DataRowAdding

事件中这样写不行吗?

e.datarow("日期") = .Rows(.Rows.Count-1)("日期")

呵呵，不用With的话，上面的代码要出错的呢。

噢,知道了,呵呵

不用with，除非
e.datarow("日期") = CurrentTable.Rows(CurrentTable.Rows.Count-1)("日期")
否则要出错。

我这个是放按钮中的,必须是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)("第一列")