Foxtable(狐表)用户栏目专家坐堂 → 赋值无效


  共有4222人关注过本帖树形打印复制链接

主题:赋值无效

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/6 19:45:00 [显示全部帖子]

没有保存:

……
        dr("outboundWagePrice")=dr1("inboundWagePrice")  '此行代码无效,求老师帮看下是什么原因
        dr.save
……


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/10 17:37:00 [显示全部帖子]

不可能,只要有值,保存了肯定可以。除非R05_RetailShipment是查询表或者临时表

不过注意保存后数据在数据库里,界面需要刷新才会重新加载数据的
[此贴子已经被作者于2020/9/10 17:38:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/10 20:15:00 [显示全部帖子]

……
        dr("outboundWagePrice")=dr1("inboundWagePrice")  '此行代码无效,求老师帮看下是什么原因
        dr.save
MessageBox.Show(4) '这里能不能弹出来?
……

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/15 17:16:00 [显示全部帖子]

MessageBox.Show(4) '这里不能弹出来,说明根本就没有查询到符合条件的数据,也就是没有执行到赋值的代码

For Each dr As DataRow In DataTables("R06_CheckMaterialAmount_Detail").select("outboundQuantity >0  and outboundWagePrice is null")
        Dim dr1 As DataRow
        dr1 = DataTables("R06_CheckMaterialAmount_Detail").Find("(tableCode='R03_InboundProducts' Or tableCode='R03_Delegation') And (itemID = '" & dr("itemID") & "') and (number> '"&dr("number")&"')","number",0)
        If dr1 IsNot Nothing Then '如果找到符合条件的
            dr("outboundWagePrice")=dr1("inboundWagePrice")
        End If
Next
DataTables("R06_CheckMaterialAmount_Detail").save

 回到顶部