Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么代码不起作用


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

主题：为什么代码不起作用
帅哥哟，离线，有人找我吗？
shiliang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		为什么代码不起作用  发帖心情 Post By：2015/6/15 10:25:00 [显示全部帖子]

'出库量大于库存量禁止出库,不能小于零
'-------------------------------------------------------------------------------------------
Select Case e.DataCol.name
    Case "物料代码"
        If e.newvalue Is Nothing Then '如果新值是空白,也就是物料代码列的内容为空
            ' msgbox("物料代码为空")
            e.DataRow("出库数量") = Nothing '那么清空此行出库数量列的内容
        Else
            Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.NewValue & "'","_Identify Desc")'获得最后一行
            If dg Is Nothing Then '如果找到了同名的物料代码行,也就是dr不是Nothing
                'msgbox("在库存没找到物料")
                'e.Cancel = True
                e.NewValue = Nothing
                If dg IsNot Nothing Then
                    If e.DataRow("出库数量") <= 0 Then
                        e.DataRow("出库数量") = Nothing
                    End If
                    If  e.DataRow("出库数量") >= dg("库存数量") Then
                        'MsgBox("出库量不能大于库存量!")
                        e.DataRow("出库数量") = dg("库存数量")
                    End If
                End If
            End If
        End If
End Select


代码写在“DataColChanging”事件中，但是不起作用
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 10:54:00 [显示全部帖子]

谢谢！！！
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 11:30:00 [显示全部帖子]

 Case "记账"
        Dim Sun As Integer
        Sun =  DataTables("材料发放明细表").Compute("Sum(出库数量)", "[物料代码] = '" & Vars("物料代码") & "'")
        If "记账" = False Then
            If sun >= dg("库存数量") Then
                
                'ElseIf  e.newvalue  >= dg("库存数量") Then
                MsgBox("出库量不能大于库存量!")
                e.newvalue = dg("库存数量")
            End If
        End If
End Selec

麻烦帮我改一下代码，谢谢！！！
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 11:49:00 [显示全部帖子]

新的出库数量与未记账的出库数量之和不能大于库存量，该如写代码

 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 15:09:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150615151003.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 15:10:00 [显示全部帖子]

提示错误


 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 16:07:00 [显示全部帖子]

Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.DataRow("物料代码") & "'","_Identify Desc")'获得最后一行
Select Case e.DataCol.name
    Case "出库数量"
        If dg Is Nothing Then '如果找到了同名的物料代码行,也就是dr不是Nothing
            'msgbox("在库存没找到物料")
            'e.Cancel = True
            e.NewValue = Nothing
        Else
            
            If e.newvalue <= 0 Then
                e.newValue = Nothing
            End If
        End If
        Dim dms As List(Of String)
        dms = DataTables("材料发放明细表").GetValues("物料代码")
        For Each dm As String In dms
            If dms("记账") = False Then
                Dim Sun As Double
                Sun =  DataTables("材料发放明细表").Compute("Sum(出库数量)", "[物料代码] = ' & dms & '")
                If sun >= dg("库存数量") Then
                    MsgBox("出库量不能大于库存量!")
                    e.DataRow("出库数量") = Nothing
                    'e.Cancel = True
                End If
            End If
        Next
        
End Select

这段代码中   Dim dms As List(Of String)
        dms = DataTables("材料发放明细表").GetValues("物料代码")
        For Each dm As String In dms
            If dms("记账") = False Then       如何修改？
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 16:25:00 [显示全部帖子]

新的出库数量与未记账的出库数量之和不能大于库存量，"dms"是物料代码列的集合，是字符串，如何表示相同无聊代码的“记账”列，If dms("记账") = False Then 这个代码有问题

 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 17:02:00 [显示全部帖子]

实例：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:hjkscbhs.rar
 回到顶部
帅哥哟，离线，有人找我吗？
shiliang
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00 		  发帖心情 Post By：2015/6/15 17:15:00 [显示全部帖子]

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