主题：再请教一个问题

AfterEdit

For i As Integer = e.Table.Cols.Count - 1 To 0 Step - 1
    If e.Row.IsNull(e.Table.Cols(i)) = False Then
        e.Row("第一列") = e.Row(e.Table.Cols(i))
        Exit For
    Else
        Continue For
    End If
Next

你不就是要最后一列有数据的，显示在第一列吗？

他要的效果应该是这样的：

Dim s() As String = {"第五列","第七列","第十列","第十二列"}
For i As Integer = 0 To e.Table.Cols.Count - 1
    For j As Integer = 0 To s.Length - 1
        If e.Table.Cols(i).Name = s(j) Then
            If e.Row.IsNull(e.Table.Cols(i)) = False Then
                e.Row("第一列") = s(j)
                Exit For
            Else
                Continue For
            End If
        End If
    Next
Next

他要的效果应该是这样的：

Dim s() As String = {"第五列","第七列","第十列","第十二列"}
For i As Integer = 0 To e.Table.Cols.Count - 1
    For j As Integer = 0 To s.Length - 1
        If e.Table.Cols(i).Name = s(j) Then
            If e.Row.IsNull(e.Table.Cols(i)) = False Then
                e.Row("第一列") = s(j)
                Exit For
            Else
                Continue For
            End If
        End If
    Next
Next

Select Case e.DataCol.name
    Case "第五列","第七列","第十列","第十二列"
        Dim s() As String = {"第五列","第七列","第十列","第十二列"}

        e.DataRow("第一列")  = nothing
        For i As Integer =  s.Length - 1 To 0 Step - 1
            If e.DataRow.IsNull(s(i)) = False Then
                e.DataRow("第一列") = s(i)
                Exit For
            End If
        Next
End Select