以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加行时的自动赋值问题  (http://foxtable.net/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
--  

问题解决了,谢谢狐狸老爹!