主题：问个条件问题

呵呵 也只有这样比较好 设置一个大的积分数吧

不用改表了：

If e.DataCol.Name = "积分" Then
    Dim dr1 As DataRow = DataTables("会员等级设置").Find("最低积分 > " & e.DataRow("积分"))
    Dim dr2 As DataRow = DataTables("会员等级设置").Find("等级名称 = '中级会员'")
    If dr1 Is Nothing Then
        e.DataRow("等级") = "高级会员"
    Else
        If dr2("最低积分") > e.DataRow("积分") Then
            e.DataRow("等级") = "初级会员"
        Else
            e.DataRow("等级") = "中级会员"
        End If
    End If
End If

下面的更通用：

If e.DataCol.Name = "积分" Then
    For i As Integer = 0 To DataTables("会员等级设置").DataRows.Count - 1
        If DataTables("会员等级设置").DataRows(i).IsNull("等级名称") = False AndAlso DataTables("会员等级设置").DataRows(i).IsNull("最低积分") = False Then
            If i < DataTables("会员等级设置").DataRows.Count - 1 Then
                If e.DataRow("积分") >= DataTables("会员等级设置").DataRows(i)("最低积分") AndAlso e.DataRow("积分") < DataTables("会员等级设置").DataRows(i + 1)("最低积分") Then
                    e.DataRow("等级") = DataTables("会员等级设置").DataRows(i)("等级名称")
                End If
            Else
                If e.DataRow("积分") >= DataTables("会员等级设置").DataRows(i)("最低积分") Then
                    e.DataRow("等级") = DataTables("会员等级设置").DataRows(DataTables("会员等级设置").DataRows.Count - 1)("等级名称")
                End If
            End If
        End If
    Next
End If

 呃，楼主这个问题，表结构也不需要改的吧？find函数不是可以排序的么？根据积分取最后一个就是用户等级了。

理解的更透彻，运用的更巧妙。

从善如流，见贤思齐。

If e.DataCol.Name = "积分" Then
    If e.DataRow("积分") < 0 Then
        e.DataRow("积分") = Nothing
        e.DataRow("等级") = Nothing
        MessageBox.Show("积分不能为负")
    Else
        Dim dr As DataRow = DataTables("会员等级设置").Find("最低积分 < = " & e.DataRow("积分"),"最低积分 Desc")
        If dr IsNot Nothing Then
            e.DataRow("等级") = dr("等级名称")
        End If
    End If
End If

顶一下，我都忘记Find函数有这个参数了。