以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  增加行时的自动赋值问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10258)
--  作者：zxyds2000
--  发布时间：2011/5/27 11:25:00
--  增加行时的自动赋值问题

1、怎样在增加行时，数值自动加1；

2、怎样在增加行时，自动复制上一行数据。
--  作者：狐狸爸爸
--  发布时间：2011/5/27 11:32:00
--  

看这段帮助的示例三：

 

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

 

 
--  作者：zxyds2000
--  发布时间：2011/5/27 11:42:00
--  
不是全部复制，是指定列复制。
--  作者：ybil
--  发布时间：2011/5/27 11:49:00
--  

示例四

上面的代码是复制所有列，如果只是复制部分列，可以参考下面的代码：

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
--  作者：狐狸爸爸
--  发布时间：2011/5/27 11:49:00
--  

If e.DataTable.DataRows.Count = 0 Then \'如果是一个空表
    Return \'那么返回
End If
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
e.DataRow("第一列") = dr("第五列")
e.DataRow("第五列") = dr("第五列")
e.DataRow("第八列") = dr("第八列")
--  作者：zxyds2000
--  发布时间：2011/5/27 13:47:00
--  

问题解决了，谢谢狐狸老爹！