- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13374)
-- 发布时间：2011/10/10 9:36:00
-- [求助]
看看运行之后的样子，变成了删除四行我想对八行进行操作的
-- 发布时间：2011/10/10 9:43:00
--
看什么，用例子说话吧，做个文件，写上你的代码传上来，然后说明问题。
另：
1、同一个问题，不要另外发帖，在原贴后面跟帖即可。
2、贴子标题要简单描述问题。
-- 发布时间：2011/10/10 9:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产通知单.table |
-- 发布时间：2011/10/10 10:00:00
--
Dim t1 As Table=Tables("生产通知单.生产通知单明细1")
Dim t2 As Table =Tables("生产通知单.生产通知单明细2")
For i As Integer = t1.Rows.count- 1 To 0 Step -1
Dim dr1 As Row = t1.Rows(i)
Dim dr2 As Row = t2.Rows(i)
If dr1.IsNull("支数") = False Then
dr1.save()
dr2.save()
Else
dr1.delete()
dr2.Delete()
End If
Next