上图,上项目先,项目中表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
此主题相关图片如下:图1.png
此主题相关图片如下:图2.png