- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表达式问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61139)
-- 发布时间：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")
-- 发布时间：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