主题：代码错哪了

Select Case e.DataCol.Name
    Case  "数量","仓库","存货名称","染料代号"
        Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 = '" & e.DataRow("存货名称") & "'")
        For Each dr As DataRow In DataTables("盘点表").DataRows
            dr("本月出库数量") = 0
            dr("新厂借用数量") = 0
        Next
       
        If fdr IsNot Nothing Then
            If e.DataRow("染料代号") = "A-1" OrElse e.DataRow("染料代号") = "A-2" OrElse e.DataRow("染料代号") = "A-3" OrElse e.DataRow("染料代号") = "A-6" OrElse e.DataRow("染料代号") Like "A*" = False Then
               
                fdr("新厂借用数量") = DataTables("统计").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库  = '新厂'")
                fdr("统计用量") = DataTables("统计").Compute("sum(数量)/1000","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库  = '老厂'")
            Else
                fdr("统计用量") = DataTables("统计").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库  = '老厂'")
            End If
        End If
End Select

 

请问我的代码错在哪里？为什么电脑不能进行判断，都是除以1000，谢谢

此主题相关图片如下：qq图片20140704113444.jpg


此主题相关图片如下：qq图片20140705092502.jpg

Select Case e.DataCol.Name
    Case  "数量","仓库","存货名称","染料代号"
        Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 = '" & e.DataRow("存货名称") & "'")
        For Each dr As DataRow In DataTables("盘点表").DataRows
            dr("本月出库数量") = 0
            dr("新厂借用数量") = 0
        Next
       
        If fdr IsNot Nothing Then
            If e.DataRow("染料代号") = "A-1" OrElse e.DataRow("染料代号") = "A-2" OrElse e.DataRow("染料代号") = "A-3" OrElse e.DataRow("染料代号") = "A-6" OrElse e.DataRow("染料代号") Like "A*" = False Then
               
                fdr("新厂借用数量") = DataTables("统计").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库  = '新厂'")
                fdr("统计用量") = DataTables("统计").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库  = '老厂'")/1000
            Else
                fdr("统计用量") = DataTables("统计").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库  = '老厂'")
            End If
        End If
End Select

还是不行呀，还是没有判断哟。

就是[统计]表晨的染料代号为"A-1","A-2","A-3","A-6"及其他不含A开头的，【盘点表】的统计数量自动累加【统计】表相同名称的货物数量，并将他们的和除以1000，否则只统计数量，不要除以1000

就是[统计]表晨的染料代号为"A-1","A-2","A-3","A-6"及其他不含A开头的，【盘点表】的统计数量自动累加【统计】表相同名称的货物数量，并将他们的和除以1000

R1 不用除以1000的

不好意思，错了

 

Select Case e.DataCol.Name
    Case "存货名称", "净重", "单价", "数量","金额"
        If e.DataRow("存货名称") = "车煤粉" Then
            e.DataRow("金额") = e.DataRow("净重") * e.DataRow("单价")
        Else
            e.DataRow("金额") = e.DataRow("数量") * e.DataRow("单价")
        End If
End Select
此主题相关图片如下：qq图片20140705102731.jpg

为什么代码不起作用呢？

Select Case e.DataCol.Name

    Case "车数","存货名称", "净重", "单价", "数量","金额"

        If e.DataRow("存货名称") = "车煤粉" Then
               e.DataRow("净重") = e.DataRow("毛重") - e.DataRow("车数")*0.06

            e.DataRow("金额") = e.DataRow("净重") * e.DataRow("单价")
        Else
            e.DataRow("金额") = e.DataRow("数量") * e.DataRow("单价")
        End If
End Select

 

这个代码能否帮忙看一下，为什么我录入“车数”有反映，录入毛重没有反映。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:祥泰仓库管理系统-改.rar