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


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

主题:赋值

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


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
赋值  发帖心情 Post By:2018/1/6 16:39:00 [只看该作者]

 请教一下,我这个当r等于0了,dr1("核销") = True却不执行,

If 图片点击可在新窗口打开查看e.DataCol.Name = "未回数量" Then
    Dim r As Integer
    r=Tables("供应商订货总表").Current("未回数量") = DataTables("供应商订货明细表").Compute("sum(欠货数量)","piao号 = '" & Tables("供应商订货明细表").Current("piao号") & "'")
    If r =0 Then
        Dim dr1 As DataRow
        dr1 = DataTables("供应商订货总表").Find("piao号 = '" & e.DataRow("piao号") & "'")
        If dr1 IsNot Nothing Then
            dr1("核销") = True
        End If
    End If
End If 

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/1/6 16:42:00 [只看该作者]

If 图片点击可在新窗口打开查看e.DataCol.Name = "未回数量" Then
    Dim r As Integer
    r= DataTables("供应商订货明细表").Compute("sum(欠货数量)","piao号 = '" & Tables("供应商订货明细表").Current("piao号") & "'")
    If r =0 Then
        Dim dr1 As DataRow
        dr1 = DataTables("供应商订货总表").Find("piao号 = '" & e.DataRow("piao号") & "'")
        If dr1 IsNot Nothing Then
            dr1("核销") = True
        End If
    End If
End If 

 回到顶部