以文本方式查看主题

-  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=61139)
--  作者：feiyu988
--  发布时间：2014/12/7 21:30:00
--  表达式问题

表A中列A1、A2、A3，表B中列B1、B2，希望实现：如果B1列满足大于A1小于A2，则B2值等于相应的A3列值，若表A中没有相关行或不是唯一值则报错，整了半天没整成，请教各位老师
--  作者：有点甜
--  发布时间：2014/12/7 21:34:00
--  

参考代码，不会写就上传例子。

 

Dim fdr As DataRow = DataTables("表B").Find("B1 > " & e.DataRow("A1") & " And B1 < " & e.DataRow("A2"))

fdr("B2") = e.DataRow("A3")
--  作者：feiyu988
--  发布时间：2014/12/7 21:47:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table

还真是搞不成，版主帮帮忙
--  作者：有点甜
--  发布时间：2014/12/7 21:51:00
--  
For Each dr As DataRow In DataTables("表B").DataRows
    Dim fdr As DataRow = DataTables("表A").Find("A1 <= " & dr("B1") & " And A2 >= " & dr("B1"))
    If fdr IsNot Nothing Then
        dr("B2") = fdr("A3")
    End If
Next