主题：关于父表加项，若子表没有，自动新增行问题

Select e.DataCol.Name
    Case "项目"
        If e.DataRow.IsNull("项目") Then
            e.DataRow("计划编号") = Nothing
        Else
            Dim lb As String = e.DataRow("项目")
            If e.DataRow("计划编号").StartsWith(lb) = False '如果计划编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(计划编号)","项目 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该项目的最大编号
                If max > "" Then '如果存在该项目的最大编号
                    idx = CInt(max.SubString(16,3)) + 1 '获得最大编号的后二位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("计划编号") = lb & "-" & Format(idx,"000")
            End If
        End If
    Case "计划编号"
        If e.DataRow.IsNull("计划编号") = False Then '如果已经输入计划编号
            If e.DataRow.GetChildRows("执行动态").Count = 0 Then '而且无执行动态
                Dim dr As DataRow = DataTables("执行动态").AddNew()
            End If
        End If
    Case "图号","计划数量","单价"  '如果订单中图号?计划数量?单价?变化,则同步修改修改订单中数据
        Dim Filter As String = "[计划编号] = '" & e.DataRow("计划编号") & "'"
        Dim nm As String = e.DataCol.Name
        DataTables("修改订单").ReplaceFor(nm, e.DataRow(nm), Filter)
End Select

我想请问一下老师，高亮黄色部分为什么不工作？程序哪里出了问题？