- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 正负处理问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193714)
-- 发布时间：2024/10/7 10:35:00
-- 正负处理问题
需求：如果表A第三行“品名为A3"的数量为正数赋值到表B的第二行”品名为F2“的数量，
如果表A第三行“品名为A3"的数量为负数赋值到表B的第三行”品名为F3“的数量，如何实现？
此主题相关图片如下：正负数.png
-- 发布时间：2024/10/7 19:49:00
--
参考：http://www.foxtable.com/webhelp/topics/1451.htm
如果是【数量为正数就到表B查的”品名为F2“的行赋值，否则查”品名为F2“的行】
-- 发布时间：2024/10/7 20:15:00
--
需求，说错
正确需求如下
需求：如果表A第三行“品名为A3"的数量为正数赋值到表B的第三行”品名为F3“的数量，
如果表A第三行“品名为A3"的数量为负数赋值到表B的第二行”品名为F2“的数量，如何实现？
-- 发布时间：2024/10/7 20:29:00
--
如果是【数量为正数就到表B查的”品名为F3“的行赋值，否则查”品名为F2“的行】
Dim dr As DataRow
if e.DataRow("数量") > 0
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("产品").Find("[品名] = \'F3\'")
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("产品").Find("[品名] = \'F3\'")
else
dr = DataTables("产品").Find("[品名] = \'F2\'")
end if
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("单价") = dr("单价")
End If
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("单价") = dr("单价")
End If