主题：日期自动增加

师傅你好：

要求每增加一行，自动显示当天日期，如何操作，谢谢！

参考：

 

http://www.foxtable.com/help/topics/0630.htm

 

师傅你好：

如果系统日期列、组长列、班次列要求每增加一行时，内容自动显示，公式如何设置，谢谢！

e.datarow("组长列")="组长名字"

师傅你好：

按照4楼公式输入后，新增一行的内容发生了变化，与上一行的内容不相符，还请帮助指点，谢谢！

和上一行的不符,你又没有说.

师傅你好：

系统日期列、组长列、班次列要求每增加一行时，自动显示上一行的列内容，还请师傅帮忙，如何设置公式，谢谢！

1.用克隆行，看说明书

 

克隆行，所谓克隆，就是新增加一行，且该行和被克隆行的各列内容完全一样。

例如克隆订单表的当前行：

Tables("订单").Current.Clone()

克隆当前表的第一行：

CurrentTable.Rows(0).Clone()

 

克隆成功后，会自动将光标移到克隆行上。

师傅你好：

用这个方法不行，困为其它列的内容不需要添加到下一行。谢谢！

看帮助:

 

DataRowAdding

增加一行时执行，此时新增行(DataRow)已经创建，但并未真正增加到DataTable中，通常在此处对新增行进行默认值的设置。

e参数属性：　

DataTable：返回增加行的数据表。
DataRow：  返回新增加的行。

 

 

If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
    Return '那么返回
End If
Dim ColNames As String() = {"组长,"日期","班次"} '定义一个数组,保存复制列的名称
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行
For Each ColName As String in ColNames
    e.DataRow(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.
Next