主题：求助

Dim s As String = "不评定|六|五|四|三|二|一"
Select Case e.DataCol.Name
    Case "分"
        If e.DataRow.Isnull("分") = False
            If e.NewValue > -1 And e.NewValue < 7
                Dim n As Integer = e.NewValue
                e.DataRow("评定等级") = s.split("|")(n)
                e.DataRow("思想") = 55
                e.DataRow("政治") = 45 +n
                Dim drs As List(Of DataRow) = DataTables("表A").Select("分=" & e.NewValue & " and _SortKey < " & e.DataRow("_SortKey"))
                If drs.Count > 0
                    Dim lc As String = drs(drs.Count-1)("备注")
                    If lc = "哈哈"
                        e.DataRow("备注") = "啦啦"
                    Else If lc = "啦啦"
                        e.DataRow("备注") = "呵呵"
                    Else If lc = "呵呵"
                        e.DataRow("备注") = "莉莉"
                    Else If lc = "莉莉"
                        e.DataRow("备注") = "洗洗"
                    Else If lc = "洗洗"
                        e.DataRow("备注") = "哈哈"
                    Else
                        e.DataRow("备注") = "洗洗"
                    End If
                Else
                    e.DataRow("备注") = "洗洗"
                End If
            End If
        Else
            e.DataRow("备注") = Nothing
        End If
End Select

 

1、不要擅自否认别人对您的努力；

2、提问要把问题阐述清楚，不要帖子满天飞；

3、对不容易解决的问题要即时给出示例文件

4、针对您目前的状况，先改掉粗心大意的毛病，踏踏实实看帮助，不要浮躁，否则对不住您手里的开发版。