主题：再请教一个问题

第一列 第五列 第七列 第十列 第十二列

如果 第五列，第七列，第十列 有日期数据

需要在第一列中填写 最后一列有数据的列的名称

帮帮忙啊亲

比如第十二列是没有数据的，第十列是有数据的 那么最后一列有数据列就是第十列了，返回第十列的列名

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楼。

你搞错了亲

我是要指定某几列里寻找最后有数据的那一列的列名称，不是所有的列里

人家四楼没错，简洁一点可以这样：

For i As Integer = e.Table.Cols.Count - 1 To 0 Step - 1
    If e.Row.IsNull(i) = False Then
        e.Row("第一列") = e.Table.Cols(i).Name
        Exit 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