以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教：要实现以下结果，代码该怎么样优化？【已结】  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84765)
--  作者：无我是天机
--  发布时间：2016/5/10 10:38:00
--  [求助]请教：要实现以下结果，代码该怎么样优化？【已结】
表B，有姓名、分数、等级三列；表A上的窗口1的Table1控件绑定表B（Normal型副本）；要实现结果：点击“统计”按钮后，代码根据窗口1分数区间设置下的4个区间文本框设置的值（前提：4个区间不一定全部设置了值，但至少有一个区间会设置值。只能从上到下依次设置；且后一个区间的值是大于前一个区间的值的），对比表B中分数列的分数，动态回写表B中等级列的值。
回写等级列值的逻辑是：
如果该行的分数≥有设置值的最后一个区间的值，那么等级列就写入“ 最后一个区间的值 & 分数以上”；
如果该行的分数≥有设置值的倒数第2个区间的值，那么等级列就写入“ 倒数第2个区间的值 & “-” & 最后一个区间的值 & 分”；
......以此类推
如果该行的分数不在上述情况内，则等级列写入“小于 & 第一个区间的值 & 分”
我的附件项目示例中的代码在4个区间都设置了值的时候没有问题，但是当只设置了1个或者2个或者3个区间的时候，就达不到想要的结果了。请教，代码该怎么样优化？

[此贴子已经被作者于2016/5/10 11:38:37编辑过]
--  作者：大红袍
--  发布时间：2016/5/10 10:40:00
--  
 请上传实例
--  作者：无我是天机
--  发布时间：2016/5/10 10:42:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.rar


[此贴子已经被作者于2016/5/10 10:45:57编辑过]
--  作者：无我是天机
--  发布时间：2016/5/10 10:48:00
--  
已上传。咱们论坛附件好像很难上传上去，搞了几下才搞好。本来还有个截图的，怎么都上传不了？
--  作者：大红袍
--  发布时间：2016/5/10 11:17:00
--  

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
--  作者：无我是天机
--  发布时间：2016/5/10 11:38:00
--  
完美，感谢感谢！