标题：增加行时的自动赋值问题

1楼

zxyds2000 发表于：2011/5/27 11:25:00

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

2、怎样在增加行时，自动复制上一行数据。

2楼

狐狸爸爸 发表于：2011/5/27 11:32:00

看这段帮助的示例三：

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

3楼

zxyds2000 发表于：2011/5/27 11:42:00

不是全部复制，是指定列复制。

4楼

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

5楼

狐狸爸爸 发表于：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("第八列")

6楼

zxyds2000 发表于：2011/5/27 13:47:00

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

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