以下是引用lsy在2013-4-20 10:10:00的发言:
他要的效果应该是这样的:
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
这个只能放在after edit下吗? 不能改成datacolchanged里面?