请老师帮我修正产品耗料计算代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请老师帮我修正产品耗料计算代码

共有3833人关注过本帖树形打印复制链接主题：请老师帮我修正产品耗料计算代码

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/1 21:01:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

[此贴子已经被作者于2021/7/2 9:00:03编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/1 21:47:00 [显示全部帖子]

更新到最新版foxtable

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/1 22:02:00 [显示全部帖子]

Select Case e.DataCol.Name

Case "产品型号","生产数量"

If e.DataRow.IsNull("产品型号") Then

For Each dc As DataCol In e.DataTable.DataCols

If dc.Name Like "配件名称_*" Then

e.DataRow(dc.Name) = Nothing

End If

Else

For Each dr As DataRow In DataTables("导尿包产品配置表").Select("数量_" & e.DataRow("产品型号") & " <> 0 and 配件名称 Is not null")

e.DataRow("配件名称_" & dr("配件名称") & "_类型") = dr("类型")

e.DataRow("配件名称_" & dr("配件名称") & "_数量") = dr("数量_" & e.DataRow("产品型号")) * e.DataRow("生产数量")

End If

End Select

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/1 22:32:00 [显示全部帖子]

7楼代码不可能会有这种提示，用的肯定不是这个代码

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/1 22:50:00 [显示全部帖子]

除了7楼给出的代码，其它代码全部删除掉

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/2 8:14:00 [显示全部帖子]

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。

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

主题：请老师帮我修正产品耗料计算代码