- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 复制所有行(已解决) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33553)
-- 发布时间：2013/5/20 17:29:00
-- 复制所有行(已解决)
一张月报里，如果要弄一个按钮复制前一天的所有内容，代码该如何写
[此贴子已经被作者于2013-5-21 16:46:56编辑过]
-- 发布时间：2013/5/20 17:35:00
--
for each dr as datarow in datatables("表A")
dr1 as datarow = datatables("表B").addnew
dr1("第一列")=dr("第一列")
next
-- 发布时间：2013/5/21 8:05:00
--
以下是引用Bin在2013-5-20 17:35:00的发言：
for each dr as datarow in datatables("表A")
for each dr as datarow in datatables("表A")
dr1 as datarow = datatables("表B").addnew
dr1("第一列")=dr("第一列")
next
是在同一张表执行了，没有跨表
-- 发布时间：2013/5/21 8:45:00
--
Dim count As Integer =Tables("表A").Rows.Count
For i As Integer= 0 To count-1
Tables("表A").Rows(i).Clone
Next
-- 发布时间：2013/5/21 11:33:00
--
以下是引用Bin在2013-5-21 8:45:00的发言：
Dim count As Integer =Tables("表A").Rows.Count
For i As Integer= 0 To count-1
Tables("表A").Rows(i).Clone
Next
这个复制的是表上所有的内容，如果只要复制表上最后一天的内容，该怎么写
-- 发布时间：2013/5/21 11:39:00
--
最后一天那一列? 还是什么意思?
-- 发布时间：2013/5/21 11:45:00
--
以下是引用Bin在2013-5-21 11:39:00的发言：
最后一天那一列? 还是什么意思?
最后一天那一列? 还是什么意思?
就是日期那列，时间是最晚的，例如，报表上有1号，2号，3号3天的内容，我要复制的是3号所有的内容
-- 发布时间：2013/5/21 11:46:00
--
复制日期为3号的那一行?
[此贴子已经被作者于2013-5-21 11:46:11编辑过]
-- 发布时间：2013/5/21 11:51:00
--
Dim dr As datarow =dataTables("表A").Find("",日期 Desc)
dim dr1 as datarow = dataTables("表A").addnew
dr1("第一列")=dr("第一列")
dr1("日期")=dr("日期")
-- 发布时间：2013/5/21 11:52:00
--
以下是引用Bin在2013-5-21 11:46:00的发言：
复制日期为3号的那一行?
复制日期为3号的那一行?
[此贴子已经被作者于2013-5-21 11:46:11编辑过]
此主题相关图片如下：qq图片20130521114835.jpg
就是复制在表格中最后面那一天所以行的内容