主题：[求助]

If e.DataCol.name <> "最后一列列名" Then

    Dim lis As new List(of String)

    For Each dc As DataCol In e.DataTable.DataCols

         If dc.name  <> "最后一列列名" Then

            If lis.Contains(e.DataRow(dc.name))=False Then

               lis.Add(e.DataRow(dc.name))

            End If

         End If

    Next

    e.DataRow("最后一列列名")=lis.Count

End If