主题：[求助]请教：要实现以下结果，代码该怎么样优化？【已结】

表B，有姓名、分数、等级三列；表A上的窗口1的Table1控件绑定表B（Normal型副本）；要实现结果：点击“统计”按钮后，代码根据窗口1分数区间设置下的4个区间文本框设置的值（前提：4个区间不一定全部设置了值，但至少有一个区间会设置值。只能从上到下依次设置；且后一个区间的值是大于前一个区间的值的），对比表B中分数列的分数，动态回写表B中等级列的值。

 请上传实例

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

已上传。咱们论坛附件好像很难上传上去，搞了几下才搞好。本来还有个截图的，怎么都上传不了？

Dim qujian1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If qujian1.Value Is Nothing Then
    MessageBox.Show("请至少设置一个区间!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
    Dim idx As Integer
    For i As Integer = 4 To 1 Step -1
        Dim txt As WinForm.TextBox = e.Form.controls("Textbox" & i)
        If txt.text > "" Then
            idx = i
            Exit For
        End If
    Next

    For Each dr As DataRow In DataTables("表B").Select("")
        For i As Integer = idx To 1 Step -1
            Dim txt As WinForm.TextBox = e.Form.controls("Textbox" & i)
            If txt.text > "" Then
                If i = idx Then
                    If dr("分数") >= val(txt.Text) Then
                        dr("等级") = txt.text & "分以上"
                        Exit For
                    End If
                Else
                    If dr("分数") >= val(txt.Text) Then
                        dr("等级") = txt.text & " - " & e.form.controls("Textbox" & i+1).Text & "分"
                        Exit For
                    ElseIf i = 1 Then
                        If dr("分数") <= val(txt.Text) Then
                            dr("等级") = txt.text & "分以下"
                            Exit For
                        End If
                    End If
                End If
            End If
        Next
    Next
End If

完美，感谢感谢！