主题：自动复制行

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
此主题相关图片如下：132.png


此主题相关图片如下：4207.png

这个是怎么回事  怎么就项目名称没有复制下来    都是丨...

测试了  不对啊  还是带管道符号的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:大连汉普20.foxdb