如果产品等于‘PD01’则含水率等于5%，这句代码怎么写(已解决) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果产品等于‘PD01’则含水率等于5%，这句代码怎么写(已解决)

共有4362人关注过本帖树形打印复制链接主题：如果产品等于‘PD01’则含水率等于5%，这句代码怎么写(已解决)

a9858

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

等级：童狐帖子：251 积分：2392 威望：0 精华：0 注册：2011/11/12 10:39:00

如果产品等于‘PD01’则含水率等于5%，这句代码怎么写(已解决) 发帖心情

Post By：2013/7/22 11:37:00 [显示全部帖子]

公司进货时有一个产品 'PD01'默认扣除水分5%，

我现在是用净重-（净重*0.05），每次输入5%有点麻烦，有时忘记输入

能不能在增加该产品时自动扣掉5%。

[此贴子已经被作者于2013-7-22 14:08:45编辑过]

a9858

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

等级：童狐帖子：251 积分：2392 威望：0 精华：0 注册：2011/11/12 10:39:00

Post By：2013/7/22 12:23:00 [显示全部帖子]

好的我试一下

a9858

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

等级：童狐帖子：251 积分：2392 威望：0 精华：0 注册：2011/11/12 10:39:00

Post By：2013/7/22 14:08:00 [显示全部帖子]

已解决代码是这样的希望对后来人有帮助

Dim drs As List(Of DataRow)

drs = DataTables("收料单").Select("[品名] = 'PD01'")

For Each dr As DataRow In drs

dr("含水率") = 0.05

主题：如果产品等于‘PD01’则含水率等于5%，这句代码怎么写(已解决)