[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有10204人关注过本帖树形打印复制链接主题：[求助]

wangliang

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：59 积分：554 威望：0 精华：0 注册：2011/9/23 10:37:00

[求助]

Post By：2011/10/10 9:36:00 [只看该作者]

看看运行之后的样子，变成了删除四行我想对八行进行操作的

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/10 9:43:00 [只看该作者]

看什么，用例子说话吧，做个文件，写上你的代码传上来，然后说明问题。

另：

1、同一个问题，不要另外发帖，在原贴后面跟帖即可。

2、贴子标题要简单描述问题。

wangliang

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：59 积分：554 威望：0 精华：0 注册：2011/9/23 10:37:00

Post By：2011/10/10 9:45:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生产通知单.table

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

下一主题 >> << 上一主题

主题：[求助]