共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]
1楼
wangliang 发表于：2011/10/10 9:36:00看看运行之后的样子，变成了删除四行我想对八行进行操作的
2楼
狐狸爸爸 发表于：2011/10/10 9:43:00看什么，用例子说话吧，做个文件，写上你的代码传上来，然后说明问题。
另：
1、同一个问题，不要另外发帖，在原贴后面跟帖即可。
2、贴子标题要简单描述问题。
3楼
wangliang 发表于：2011/10/10 9:45:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产通知单.table |
4楼
狐狸爸爸 发表于：2011/10/10 10:00:00Dim 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
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
共4 条记录, 每页显示 10 条, 页签:
[1]