主题：[求助]

编写mark的Datacolchanged事件，代码如下

Select Case e.DataCol.Name
    Case "QQ", "performance"
        If e.DataRow.IsNull("QQ") OrElse e.DataRow.IsNull("performance") Then
            e.DataRow("June") = Nothing
        Else
            Dim fdr As DataRow = DataTables("coflow").Find("QQ = '" & e.DataRow("QQ") & "' and performance = '" & e.DataRow("performance") & "'")
            If fdr IsNot Nothing Then
                e.DataRow("June") = fdr("June")
            End If
        End If
End Select