以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  自动复制行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178330)

--  作者：有点灰3 --  发布时间：2022/6/30 9:44: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 此主题相关图片如下：132.png 此主题相关图片如下：4207.png 这个是怎么回事  怎么就项目名称没有复制下来    都是丨...

--  作者：有点蓝 --  发布时间：2022/6/30 10:03:00 --   DataTable的最后一行不等于是table的最后一行。如果要按照界面看到的数据的最后一行复制。应该这样 Dim ColNames As String() = {"项目名称", "项目编号", "项目经理", "项目成员", "项目截止日期"} \'定义一个数组,保存复制列的名称 Dim dr As Row = Tables(e.DataTable.name).Rows(Tables(e.DataTable.name).Rows.Count - 1) \'获得最后一行 For Each ColName As String In ColNames     e.DataRow(ColName) = dr(ColName) \'将最后一行的内容复制到新增行中. Next

--  作者：有点灰3 --  发布时间：2022/6/30 10:10:00 --   测试了  不对啊  还是带管道符号的  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:大连汉普20.foxdb

--  作者：有点蓝 --  发布时间：2022/6/30 10:19:00 --   datacolchanged事件代码的问题，查询新项目审批表的数据集更新当前表的名称