主题：再请教一个问题

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

要列名用这个：

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.Table.Cols(i).Name
        Exit For
    Else
        Continue For
    End If
Next

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

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

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