标题：正负处理问题

1楼

lgz518 发表于：2024/10/7 10:35:00

需求：如果表A第三行“品名为A3"的数量为正数赋值到表B的第二行”品名为F2“的数量，

如果表A第三行“品名为A3"的数量为负数赋值到表B的第三行”品名为F3“的数量，如何实现？

此主题相关图片如下：正负数.png

2楼

有点蓝 发表于：2024/10/7 19:49:00

如果是【数量为正数就到表B查的”品名为F2“的行赋值，否则查”品名为F2“的行】

3楼

lgz518 发表于：2024/10/7 20:15:00

需求，说错

正确需求如下

需求：如果表A第三行“品名为A3"的数量为正数赋值到表B的第三行”品名为F3“的数量，

如果表A第三行“品名为A3"的数量为负数赋值到表B的第二行”品名为F2“的数量，如何实现？

4楼

有点蓝 发表于：2024/10/7 20:29:00

如果是【数量为正数就到表B查的”品名为F3“的行赋值，否则查”品名为F2“的行】

Dim dr As DataRow

if e.DataRow("数量") > 0
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("产品").Find("[品名] = 'F3'")

else

dr = DataTables("产品").Find("[品名] = 'F2'")

end if
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("单价") = dr("单价")
        End If

共4 条记录, 每页显示 10 条, 页签: [1]