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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 乘以控件的值

共有3175人关注过本帖树形打印复制链接主题：乘以控件的值

有点蓝

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

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

Post By：2019/7/2 14:19:00 [只看该作者]

dim v1 as integer = val(e.form.controls("水的比例1").Text)

Dim vl As Integer = dr1("需求数量") * v1/(1+v1)

有点蓝

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

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

Post By：2019/7/2 15:35:00 [只看该作者]

Dim dic As new Dictionary(of String,Integer)

DataTables("切削液勾兑_BOM分析表").DataRows.Clear()

Dim v2 As Integer = val(e.form.controls("水的比例1").Text)

For Each dr1 As DataRow In DataTables("切削液勾兑_生产在制").DataRows

For Each dr2 As DataRow In DataTables("BOM基础数据").SQLSelect("[成品编码] = '" & dr1("成品编码") & "' and 材料类型 = '油类'")

Dim nm As String = dr1("添加批次") & "|" & dr2("材料编码") & "|" & dr2("材料描述") & "|" & dr2("供应商编码") & "|" & dr2("库位")

Dim vl As Integer

If dr2("用量") = 0 Then

vl = dr1("需求数量") * v2/(1+v2)

Else

vl = dr1("需求数量") * dr2("用量")/(1+v2)

End If

If dic.ContainsKey(nm) = False

dic.Add(nm,vl)

Else

dic(nm) = dic(nm)+ vl

End If

主题：乘以控件的值