| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 同时复制多行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131088) |
| -- 作者：edisontsui -- 发布时间：2019/2/16 9:24:00 -- 同时复制多行 Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow) If idx > 0 AndAlso Tables(e.DataTable.Name).Rows(idx - 1)("复制") = True Then e.DataRow("生产日期") = Tables(e.DataTable.Name).Rows(idx - 1)("生产日期") End if 上述代码只能复制一行。如果我筛选出来有10行，我现在一下增加10行新的空白行，如何将筛选出来的10行都复制到新的空白行里去呢？谢谢。
|
| -- 作者：有点蓝 -- 发布时间：2019/2/16 9:32:00 -- 没看懂您的逻辑，截图说明一下 dim cnt as integer = tables("表A").rows.count for i as integer = 0 to cnt -1 dim nr as row = tables("表A").addnew nr("第一列") = tables("表A").rows(i)("第一列") next
[此贴子已经被作者于2019/2/16 14:51:50编辑过]
|
| -- 作者：edisontsui -- 发布时间：2019/2/16 13:47:00 -- If User.Group = "人资" Or User.name = "开发者" Dim name As String = CurrentTable.name Dim cnt As Integer = Tables("工资计算").rows.count For i As Integer = 0 To cnt - 1 Then Dim nr As Row = Tables("工资计算").addnew nr("姓名") = Tables("工资计算").rows(i)("姓名") Next End If 我另外创建了一个按钮，其click事件的上述代码，出现警告：应为语句结束，错误代码 For i As Integer = 0 To cnt - 1 Then。不知道是怎么回事？
|
| -- 作者：edisontsui -- 发布时间：2019/2/16 13:49:00 -- 也就是说，我在“工资计算”这个数据包表里面筛选出10行数据，我希望按一下上面那个按钮，就在这个数据表自动复制和增加这10行的内容。 |
| -- 作者：剑之峰 -- 发布时间：2019/2/16 14:31:00 -- Then 去掉呢 |
| -- 作者：有点蓝 -- 发布时间：2019/2/16 14:53:00 -- For i As Integer = 0 To cnt - 1 Then 改为 For i As Integer = 0 To cnt - 1
|