主题：根据输入数字取值

If e.DataCol.name = "范05" Then
    Dim s As String = e.newvalue
    Dim n1 As String = Nothing
    Dim n2 As String = Nothing
    If s <> Nothing Then
        Dim i As Integer = Math.Floor(val(s))
        If i >= 1 Then
            Dim fdr As DataRow = e.DataTable.find("范08 <= " & i, "范08 desc")
            If fdr IsNot Nothing Then
                n1 = fdr("范09")
                n2 = fdr("范10")
            End If
        End If
    End If
    e.DataRow("范06") = n1
    e.DataRow("范07") = n2
End If

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

点击浏览该文件:测试效果.table