主题：[求助]同一列如何比较数据并赋值

上传图片或者项目

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

必须编写代码，DataColChanged事件

Select Case e.DataCol.name
    Case "第一列","第二列","第三列"
        Dim drs As List(Of DataRow) = e.DataTable.Select("第一列 = '" & e.DataRow("第一列") & "'", "第二列 desc")
        Dim str As String = ""
        If drs.count > 1 Then
            str &= drs(0)("第三列")
        End If
        If drs.count > 2 Then
            str &= drs(1)("第三列")
        End If
        For Each dr As DataRow In drs
            dr("第四列") = str
        Next
End Select

呃，不应该，你用的是正版还是盗版还是试用版？