主题：这样的自动输入怎么实现?

上图,上项目先,项目中表A为资料表,表B为输入表,表A中的内容如图1那样, 长度列的内容 50  10  20 70 代码在这个长度以上的单价,10以上的长度单价为20,达到20以上的

 

长度单价为50,以此类推,想实现在表B长度列中输入 11 后 就从表A中找出符合 11 的单价输入到 单价列 中  ,比如 11长度在表A中的单价为20  ,25长度在表A中的单价为

 

50,

 

If e.DataCol.Name = "长度" Then

    If e.DataRow.IsNull("长度") Then 

        e.DataRow("单价") = Nothing 

    Else
        Dim dr As DataRow
        dr = DataTables("表A").Find("长度 = " & "'" & e.DataRow("长度") & "'" )   这里的代码要怎么改? 请教老师
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("单价") = dr("单价")
        End If
    End If
End If

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

点击浏览该文件:管理项目23.zip

此主题相关图片如下：图1.png


此主题相关图片如下：图2.png

For i As Integer = v To 1 Step -1
            dr = DataTables("表A").Find("长度 = '" & i & "'" )
            If dr IsNot Nothing '如果找到, 则设置各列内容
                e.DataRow("单价") = dr("单价")
                Exit For               
            End If
        Next   

 

原来代码改成这样即可

Dim v As Integer = e.DataRow("长度")    因为少了这行,V的值

For i As Integer = v To 1 Step -1
            dr = DataTables("表A").Find("长度 = '" & i & "'" )
            If dr IsNot Nothing '如果找到, 则设置各列内容
                e.DataRow("单价") = dr("单价")
                Exit For               
            End If
        Next   

 

   感谢 y2287958,代码可以实现