Foxtable(狐表)用户栏目专家坐堂 → 入库明细保存同时存入库存表提示出错。


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

主题:入库明细保存同时存入库存表提示出错。

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


加好友 发短信
等级:幼狐 帖子:78 积分:892 威望:0 精华:0 注册:2012/7/4 23:17:00
入库明细保存同时存入库存表提示出错。  发帖心情 Post By:2015/4/10 17:32:00 [只看该作者]

DataTables("rkzb").Save
DataTables("rkdmx").save
For Each dr As DataRow In DataTables("rkdmx").DataRows
    If  dr.IsNull("配件编码") = False  AndAlso dr.IsNull("配件名称") = False AndAlso dr.IsNull("数量") = False Then
        Dim filter As String = "配件编码 ='" & dr("配件编码") & "'  And 配件名称 ='" & dr("配件名称") & "'And 数量 ='" & dr("数量") & "'"
       
        Dim dr1 As DataRow
        dr1 = DataTables("kucuninfo").Find(filter)
        If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            dr1("入库数量") = dr1("入库数量")+dr("数量")
        Else

            Dim dr2 As DataRow = DataTables("kucuninfo").AddNew()
            dr2("配件编码")=dr("配件编码")
            dr2("配件名称")=dr("配件名称")
            dr2("入库单价")=dr("单价")
            dr2("入库数量")=dr("数量")
            dr2("入库金额") =dr("金额")
        End If
    End If   
Next

上述代码一直提示“数量”出错,各位大师帮我看一下。可中各个字段名称我查过了,是没错的


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


加好友 发短信
等级:幼狐 帖子:78 积分:892 威望:0 精华:0 注册:2012/7/4 23:17:00
  发帖心情 Post By:2015/4/10 17:41:00 [只看该作者]

可以了,数量是整数,所以'And 数量 ='" & dr("数量") &这一段代码有问题,不够细心造成了

 回到顶部