主题：请教代码互斥的问题

1、如何测试会报错啊？我测试没问题。

2、代码

Dim cs() As String = {"设计程序_设计","校对程序_校对","审核程序_审核","批准程序_批准"}
Dim r As Row = Tables("变电副表").Current
For Each c As String In cs
    If r.IsNull(c) = False Then
        Dim i As Integer '以下代码功能,当产生第一次转换后,再转换时重复值删除
        Dim nr As Row
        Dim idx As Integer = Tables("变电副表.策划转换").FindRow("审批流程='" & c & "'")
        If idx >= 0 Then
            nr = Tables("变电副表.策划转换").rows(idx)
        Else
            nr = Tables("变电副表.策划转换").addnew
        End If
        nr("审批流程") = c
        nr("审批人员") = r(c)
    End If
Next