Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表比较问题


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

主题：跨表比较问题
帅哥哟，离线，有人找我吗？
老杨
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：25 积分：281 威望：0 精华：0 注册：2016/3/4 20:11:00 		跨表比较问题  发帖心情 Post By：2016/3/7 0:42:00 [只看该作者]

老师，帮看一下这个代码有什么问题，代码放在 datacolchanging中



Select Case e.DataCol.name
   Case "数量"
     Dim dxs As DataRow = e.DataRow
     Dim dis As DataRow
       dis = DataTables("库存明细").Find("采购编号 = '" & dxs("采购编号") & "' and 产品名称 = '" & dxs("产品名称") & "'")
      If dis("库存数量")<dxs("数量") Then
     MessageBox.Show("该价格的产品库存不足,")
    e.cancel = True
   End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/3/7 8:29:00 [只看该作者]

Select Case e.DataCol.name
    Case "数量"
        Dim dxs As DataRow = e.DataRow
        Dim dis As DataRow
        dis = DataTables("库存明细").Find("采购编号 = '" & dxs("采购编号") & "' and 产品名称 = '" & dxs("产品名称") & "'")
        If dis IsNot Nothing Then
            If dis("库存数量")<dxs("数量") Then
                MessageBox.Show("该价格的产品库存不足,")
                e.cancel = True
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/7 9:12:00 [只看该作者]

DataColChanging事件必须用e.NewValue

 

Select Case e.DataCol.name
    Case "数量"
        Dim dxs As DataRow = e.DataRow
        Dim dis As DataRow
        dis = DataTables("库存明细").Find("采购编号 = '" & dxs("采购编号") & "' and 产品名称 = '" & dxs("产品名称") & "'")
        If dis IsNot Nothing Then
            If dis("库存数量")<e.NewValue Then
                MessageBox.Show("该价格的产品库存不足,")
                e.cancel = True
            End If
        Else
            msgbox("没找到对应的编号")
        End If
End Select

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 4 次数据查询