以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期自动增加  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15155)
--  作者：caoxy
--  发布时间：2011/12/14 15:06:00
--  日期自动增加

师傅你好：

要求每增加一行，自动显示当天日期，如何操作，谢谢！
--  作者：狐狸爸爸
--  发布时间：2011/12/14 15:08:00
--  

参考：

 

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

 
--  作者：caoxy
--  发布时间：2011/12/14 15:59:00
--  

师傅你好：

如果系统日期列、组长列、班次列要求每增加一行时，内容自动显示，公式如何设置，谢谢！
--  作者：blackzhu
--  发布时间：2011/12/14 16:19:00
--  
e.datarow("组长列")="组长名字"
--  作者：caoxy
--  发布时间：2011/12/14 17:36:00
--  

师傅你好：

按照4楼公式输入后，新增一行的内容发生了变化，与上一行的内容不相符，还请帮助指点，谢谢！
--  作者：布莱克朱
--  发布时间：2011/12/14 18:23:00
--  
和上一行的不符,你又没有说.
--  作者：caoxy
--  发布时间：2011/12/14 18:30:00
--  

师傅你好：

系统日期列、组长列、班次列要求每增加一行时，自动显示上一行的列内容，还请师傅帮忙，如何设置公式，谢谢！
--  作者：xongyijd
--  发布时间：2011/12/14 20:44:00
--  

1.用克隆行，看说明书

 

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

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

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

克隆当前表的第一行：

CurrentTable.Rows(0).Clone()

 

克隆成功后，会自动将光标移到克隆行上。
--  作者：caoxy
--  发布时间：2011/12/15 7:35:00
--  

师傅你好：

用这个方法不行，困为其它列的内容不需要添加到下一行。谢谢！
--  作者：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