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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教逻辑方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65293)

--  作者：卟离卟弃
--  发布时间：2015/3/13 10:23:00
--  请教逻辑方法

此主题相关图片如下：qq图片20150313101511.png

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "物料系数"
If dr.IsNull("物料系数") = False And dr.IsNull("加工级别") = False And dr.IsNull("组件序号") = False Then
Dim dr2,dr3,dr4 As DataRow
Dim ab As Byte = dr("加工级别") - 1
If dr("加工级别") = 1 Then
dr("系数统计") = dr("物料系数")
ElseIf dr("加工级别") = 2 Then
Dim Filter1 As String = " 加工级别 = \'" & ab & "\' and 成品号 = \'" & dr("成品号") & "\' "
dr3 = DataTables("表A").find(Filter1)
If dr3 Is Nothing Then
MessageBox.Show("加工级别为 1 的成品行,不存在.无法计算!" )
Else
dr("系数统计") = dr("物料系数") * dr3("系数统计")
End If
Else
Dim Filter As String = "组件序号= \'" & dr("组件序号") & "\' and 加工级别 = \'" & ab & "\' "
dr2 = DataTables("表A").find(Filter)

If dr2 Is Nothing Then


Else
dr("系数统计") = dr("物料系数") * dr2("系数统计")
End If
End If

End If
End Select

请大家指教一下。。多谢！
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目9.foxdb

[此贴子已经被作者于2015/3/13 10:30:46编辑过]

--  作者：Bin
--  发布时间：2015/3/13 10:31:00
--
你不是按照加工级别找上一行的么, 和统计有什么关系? 统计不是统计出来值?

--  作者：有点甜
--  发布时间：2015/3/13 10:38:00
--

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "物料系数"
        If dr.IsNull("物料系数") = False And dr.IsNull("加工级别") = False And dr.IsNull("组件序号") = False   Then
            If dr("加工级别") = 1 Then
                dr("系数统计") = dr("物料系数")
            Else
                Dim ab As Byte = dr("加工级别") - 1
                Dim dr2,dr3,dr4 As DataRow

                Dim idx As Integer = dr("组件序号").LastIndexOf(".")
                Dim pstr As String = ""
                If idx > -1 Then pstr = dr("组件序号").SubString(0, idx)

                Dim Filter As String = "组件序号 like \'" & pstr & "%\' and 加工级别 = \'" & ab & "\'    "

                dr2 = DataTables("表A").find(Filter, "组件序号")

                If dr2 Is Nothing Then
                    dr("系数统计") = dr("物料系数")
                Else
                    dr("系数统计") = dr("物料系数") * dr2("系数统计")
                End If
            End If

        End If
End Select

--  作者：卟离卟弃
--  发布时间：2015/3/13 10:39:00
--

此主题相关图片如下：qq图片20150313103217.png

像一个清单中
上一加工级别，有多个

本行组件序号（3.2.1）与上级组件序号（3.2）不一样

像这种情况的时候，应该怎么去判断？递归？还是集合？

--  作者：卟离卟弃
--  发布时间：2015/3/13 10:41:00
--
感谢大家。。。。成了。