- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动复制行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178330)
-- 发布时间：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) \'获得最后一行
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
e.DataRow(ColName) = dr(ColName) \'将最后一行的内容复制到新增行中.
Next
-- 发布时间：2022/6/30 10:10:00
--
测试了 不对啊 还是带管道符号的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:大连汉普20.foxdb |
-- 发布时间：2022/6/30 10:19:00
--
datacolchanged事件代码的问题，查询新项目审批表的数据集更新当前表的名称