代码错哪了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码错哪了

共有4128人关注过本帖树形打印复制链接主题：代码错哪了

hcx0522

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：185 积分：1249 威望：0 精华：0 注册：2014/7/5 8:01:00

代码错哪了

Post By：2014/8/5 9:12:00 [只看该作者]

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，谢谢

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/5 9:13:00 [只看该作者]

fdr("统计用量") = DataTables("统计").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库 = '老厂'") / 1000

hcx0522

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：185 积分：1249 威望：0 精华：0 注册：2014/7/5 8:01:00

Post By：2014/8/5 9:26:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：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