主题：第二行开始取不到值

例如（上衣  帽子 ）就添加2行 如下

       上衣                1              bb

       帽子                2              这个值不显示（只有第一个被添加的行的值会显示 ）

正常是需要  帽子那行也要从 之前行 复制bb这个值

用的是下面的代码

有黄色代码的部分 

 Select Case e.DataCol.Name
    Case "第一列","第二列"
        If e.DataRow.IsNull("第一列") = False And e.DataRow.IsNull("第二列") = False  Then
            Dim arr1() As String = e.DataRow("第一列") .split(" ")
            Dim arr2() As String = e.DataRow("第二列") .split(".")
            If arr1.Length <= arr2.Length And arr1.Length > 1 Then
                Dim dr As DataRow
                SystemReady = False
                e.DataRow("第一列") = arr1(0)
                e.DataRow("第二列") = arr2(0)
                For i As Integer = 1 To arr1.Length -1
                    dr = e.DataTable.AddNew()
                    dr("第一列") = arr1(i)
                    dr("第二列") = arr2(i)
                    dr("第三列") = e.DataRow("第三列")
                Next
                SystemReady = True
            End If
        End If
End Select