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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，循环执行

共有2223人关注过本帖树形打印复制链接主题：求助，循环执行

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

求助，循环执行 发帖心情

Post By：2017/9/29 16:34:00 [显示全部帖子]

老师好！

有这样一个问题，如下图是“项目折扣表”

此主题相关图片如下：1.png

有这样一个窗口，如下图，在此窗口中点“方案折扣”，表里折扣按“项目折扣表”做折扣处理

此主题相关图片如下：2.png

请老师指点

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2017/9/29 16:45:00 [显示全部帖子]

报错

此主题相关图片如下：3.png

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2017/9/29 16:59:00 [显示全部帖子]

可以了，但是不能写到“按钮”里吗？老师!

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2017/9/29 17:02:00 [显示全部帖子]

可否指点一下！！

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2017/9/29 19:31:00 [显示全部帖子]

老师!报错：

此主题相关图片如下：4.png

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2017/9/29 21:59:00 [显示全部帖子]

改代码后是可以读表取值了，但是有bug，只有一条记录执行，没有对当前所有记录执行，如下图：

此主题相关图片如下：1.png

如果改为表事项里的代码，则可以多条记录执行，如下图：

此主题相关图片如下：2.png

If e.DataCol.Name ="名称" Then
    Dim dr As DataRow = DataTables("项目折扣表").Find("名称 = " & "'" & e.DataRow("名称") & "'" )
     If dr IsNot Nothing
        e.DataRow("折扣")= dr("折扣")
     End If
EndIf

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2017/9/30 13:31:00 [显示全部帖子]

老师，可以了，但是又发现一个问题，这些都只是默认数量为“1”的当数量大于“1”时，值没有发生变化还是默认的，所以要引入数量的值

for each r as row in Tables("表A").rows

Dim dr1 As DataRow = DataTables("表A").Find("数量 = " & "'" & r("数量") & "'" )

Dim dr As DataRow = DataTables("项目折扣表").Find("名称 = " & "'" & r("名称") & "'" )

If dr IsNot Nothing

r("折扣")= dr("折扣") * dr1

End If

可是这样不对，请老师批改！！

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2017/9/30 15:27:00 [显示全部帖子]

老师好，如下图：取值来源表

此主题相关图片如下：1.png

数量为1时的效果是ok的，如下图：

此主题相关图片如下：2.png

可数量不为1时，就出错了，如下图:

此主题相关图片如下：3.png

kmbn

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

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2017/9/30 21:31:00 [显示全部帖子]

可以了，完美!!

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

主题：求助，循环执行