以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]通过已知信息值，判断值在另一表中的前后区间  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128929)
--  作者：jackfreeman
--  发布时间：2018/12/18 15:23:00
--  [求助]通过已知信息值，判断值在另一表中的前后区间
求大神帮忙！
依据字段：“等级”和“调整后”两个字段数值
需完善数据信息项：“区间前项”、“区间前项对应档”、“区间后项”、“区间后项对应档”
方法：“数据表”中的“等级”和“调整后”两个数值去“标准表”中查找等级对应的区间前后项数值，并确定区间前后项所对应的档次。
         完善“区间前项”、“区间前项对应档”、“区间后项”、“区间后项
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:表测试.table

对应档”
--  作者：jackfreeman
--  发布时间：2018/12/18 15:34:00
--  
求助大神帮帮忙！
--  作者：有点甜
--  发布时间：2018/12/18 16:33:00
--  

datacolchanged事件

 

Select Case e.DataCol.name
    Case "调整前","等级","差额"
        Dim fdr As DataRow = DataTables("标准表").Find("等级 = \'" & e.DataRow("等级") & "\'")
        If fdr IsNot Nothing Then
            Dim t As Table = Tables("标准表")
            For i As Integer = 2 To t.Cols.count-1
                If fdr(t.Cols(i).name) >= e.DataRow("调整前") Then
                    e.DataRow("区间前项") = fdr(t.Cols(i-1).name)
                    e.DataRow("区间前项对应档") = i-1
                    Exit For
                End If
            Next           
            For i As Integer = 1 To t.Cols.count-1
                If fdr(t.Cols(i).name) >= e.DataRow("调整后") Then
                    e.DataRow("区间后项") = fdr(t.Cols(i).name)
                    e.DataRow("区间后项对应档") = i
                    Exit For
                End If
            Next
        End If
End Select