以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码求助！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74657)
--  作者：liuxianjie1980
--  发布时间：2015/9/16 10:22:00
--  [求助]代码求助！

以上省略........

 

Case "领料完成"
        If e.DataCol.Name = "领料完成" Then
            If e.DataRow("领料完成")="是"
                Dim vrs As List(Of DataRow)
                vrs = DataTables("合同明细表").Select("[合同编号]=\'" & e.DataRow("合同编号") & "\'")
                For Each vr As DataRow In vrs
                    Dim dr2 As DataRow
                    dr2 = DataTables("合同一览表").Find("合同编号=\'" & vr("合同编号") & "\'")
                    If vr("领料完成")="是" Then                       
                        Continue For
                    ElseIf vr("领料完成")="否" Then
                        dr2("领料完毕")="否"
                        Exit For
                    End If
                Next
            End If
        End If
End Select

 

 

当循环完毕后，所有的VR都为“是”的时候，如何赋值dr2=“是”呢？就是不知道这段代码放在什么位置？
--  作者：大红袍
--  发布时间：2015/9/16 10:40:00
--  
Case "领料完成"
    If e.DataCol.Name = "领料完成" Then
        If e.DataRow("领料完成")="是"
            Dim vrs As List(Of DataRow)
            vrs = DataTables("合同明细表").Select("[合同编号]=\'" & e.DataRow("合同编号") & "\'")
            Dim flag As Boolean = True
            For Each vr As DataRow In vrs
                If vr("领料完成")="否" Then
                    flag = False
                    Exit For
                End If
            Next
            Dim dr2 As DataRow = DataTables("合同一览表").Find("合同编号=\'" & vr("合同编号") & "\'")
            If flag Then
                dr2("领料完毕")="是"
            Else
                dr2("领料完毕")="否"
                endif
            End If
        End If
End Select
--  作者：liuxianjie1980
--  发布时间：2015/9/16 10:49:00
--  
这些东西，帮助文件中没有啊，需要我们自己恶补！
--  作者：liuxianjie1980
--  发布时间：2015/9/16 11:04:00
--  
怎么提示未声明变量vr呢？
--  作者：liuxianjie1980
--  发布时间：2015/9/16 11:16:00
--  
顶起来
--  作者：大红袍
--  发布时间：2015/9/16 11:18:00
--  

改成 e.DataRow("合同编号")

--  作者：liuxianjie1980
--  发布时间：2015/9/16 11:20:00
--  

改后又提示未声明变量dr2，倒掉了！

 

错误代码：dr2("领料完毕")="否"

[此贴子已经被作者于2015/9/16 11:20:55编辑过]
--  作者：大红袍
--  发布时间：2015/9/16 11:26:00
--  

If e.DataRow("领料完成")="是"
    Dim vrs As List(Of DataRow)
    vrs = DataTables("合同明细表").Select("[合同编号]=\'" & e.DataRow("合同编号") & "\'")
    Dim flag As Boolean = True
    For Each vr As DataRow In vrs
        If vr("领料完成")="否" Then
            flag = False
            Exit For
        End If
    Next
    Dim dr2 As DataRow = DataTables("合同一览表").Find("合同编号=\'" & e.DataRow("合同编号") & "\'")
    If flag Then
        dr2("领料完毕")="是"
    Else
        dr2("领料完毕")="否"
       
    End If
End If