标题：日期自动增加

1楼

caoxy 发表于：2011/12/14 15:06:00

师傅你好：

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

2楼

狐狸爸爸 发表于：2011/12/14 15:08:00

参考：

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

3楼

caoxy 发表于：2011/12/14 15:59:00

师傅你好：

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

4楼

blackzhu 发表于：2011/12/14 16:19:00

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

5楼

caoxy 发表于：2011/12/14 17:36:00

师傅你好：

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

6楼

布莱克朱 发表于：2011/12/14 18:23:00

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

7楼

caoxy 发表于：2011/12/14 18:30:00

师傅你好：

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

8楼

xongyijd 发表于：2011/12/14 20:44:00

1.用克隆行，看说明书

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

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

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

克隆当前表的第一行：

CurrentTable.Rows(0).Clone()

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

9楼

caoxy 发表于：2011/12/15 7:35:00

师傅你好：

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

10楼

blackzhu 发表于：2011/12/15 8:10:00

看帮助:

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

共11 条记录, 每页显示 10 条, 页签: [1] [2]