主题：帮我看看这些代码

Select Case e.DataCol.Name
    Case "负责工程师","任务编号"
        Dim dr1 As DataRow = e.DataRow
        Dim dr2 As DataRow
        If dr1("负责工程师") = "聂宗财" Then
            Dim Filter As String = "负责工程师 = '聂宗财' And 任务编号 = '" & dr1("任务编号") & "'"
             dr2 = DataTables("任务进度表").find(Filter,"事件级别")
            If dr2 Is Nothing Orelse dr2.Isnull("实际开始时间")  Then
             dr1("实际开始时间") = Nothing
            Else
             dr1("实际开始时间") = dr2("实际开始时间")
            End If
             dr2 = DataTables("任务进度表").Find(Filter,"事件级别 Desc")
            If dr2 Is Nothing Orelse dr2.Isnull("实际结束时间")  Then
             dr1("实际结束时间") = Nothing
            Else
             dr1("实际结束时间") = dr2("实际结束时间")
            End If
        End If
End Select

这些代码有一个问题，
dr2 = DataTables("任务进度表").Find(Filter,"事件级别 Desc")

Filter,"事件级别 Desc")代码中的Desc只能判断0到9。超过后就无效了。怎么样改成无数，0到99999999999

有办法吗？

这是因为事件级别是字符型，你改为整数型就可以了。

哦，谢谢