标题：用料按照顺序分配

21楼

有点蓝 发表于：2024/5/27 21:42:00

起变量名称尽量起一个让自己容易理解看得懂变量表示的意思的，而不是起一个给自己挖坑的名称。dr2是一个双精度，已经表示所有数量的和了，不是一个datarow。

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

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

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

22楼

有点蓝 发表于：2024/5/27 21:43:00

有时间乱折腾，不如先花时间学好基础：http://www.foxtable.com/webhelp/topics/1592.htm

23楼

nuoyan89 发表于：2024/5/27 22:14:00

我这弄也不是，不弄也不是，遇到新的问题了实在研究不明白，帮助里是有，但是和实际的相差不少，看帮助不实践怎能明白？

Dim dr2 As Double = DataTables("配件需求明细_明细查询").compute("sum(挂标数量)", "材料编码='" & r("材料编码") & "' and 优先顺序<" & r("优先顺序"))

If dr("在途数量") - "& dr2 &" > 0 And dr("在途数量") - "& dr2 &" >= r("未发数量") Then '如可用数量-优先顺序为1里的挂标数量大于优先顺序2中的未发数量

r("挂标数量") = r("未发数量") '该挂标数量为可用数量-优先顺序为1里的挂标数量

ElseIf dr("在途数量") - "& dr2 &" > 0 And dr("在途数量") - "& dr2 &" < r("未发数量") Then '如结果小于不等于0

r("挂标数量") = dr("在途数量") - "& dr2 &" '挂标数量等于该相减的结果

ElseIf dr("在途数量") -"& dr2 &" <= 0 And r("未发数量") > 0 Then '如结果小于不等于0

r("挂标数量") = 0 '挂标数量等于该相减的结果

End If

24楼

有点蓝 发表于：2024/5/27 22:32:00

磨刀不误砍柴工，要实践，也要把基础学好。连个基本的变量和类型的使用都不清楚，加减乘除都搞不明白，就如小孩子玩沙，在怎么努力实践也建不起楼房。

随便起个自己懂的中文意思的名称做变量名，都好过dr2这种不清不楚的挖坑名

Dim 挂标数量和 As Double = DataTables("配件需求明细_明细查询").compute("sum(挂标数量)", "材料编码='" & r("材料编码") & "' and 优先顺序<" & r("优先顺序"))

If dr("在途数量") - 挂标数量和 > 0 And dr("在途数量") - 挂标数量和 >= r("未发数量") Then

共24 条记录, 每页显示 10 条, 页签: [1][2] [3]