标题：[求助]从其它表取值
我想在合同表中，根据栋号、层数、房号从房源表中取得对应的房屋编号，用易表的时候，用findtext函数很方便，看了Foxtable的帮助文件试着用了很多办法，总是弄不出来，请高手指点一下。该列我想用作关联列，所以不能用表达式，要用计算代码！
dim r as integer
r = tables("房源").findrow("[栋号] = e.datarow("栋号") and [层数]= e.datarow("层数") and [房号]=e.datarow("现房号")",1,false)
e.datarow("房屋编号")=tables("房源").rows(r)("房屋编号")
不知错在哪里？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
Dim dt As DataTable = DataTables("房源")
Dim r As DataRow
r = dt.Find("[栋号] = '" & e.datarow("栋号") & "' And [层数]= '" & e.datarow("层数") & "' and [房号]= '" & e.datarow("房号") & "'")
e.datarow("房屋编号") = r("房屋编号")
顺便问一下czy版主：
Dim dt As DataTable = DataTables("房源")
Dim r As DataRow
r = dt.Find("[栋号] = '" & e.datarow("栋号") & "' And [层数]= '" & e.datarow("层数") & "' and [房号]= '" & e.datarow("房号") & "'")
e.datarow("房屋编号") = r("房屋编号")
这个代码中第三行的e.datarow可以写成e.r吗？这个datarow不是在第二行已经定义给r 了吗
第三行才真正将符合条件的数据存放在这个类中。
不过你倒可以直接这样写
Dim r As DataRow = dt.Find("[栋号] = '" & e.datarow("栋号") & "' And [层数]= '" & e.datarow("层数") & "' and [房号]= '" & e.datarow("房号") & "'")
Dim r As DataRow，只是定义了r是行记录的类型，此时还没有实例，即还没有具体意义上的行记录，e.datarow表示当前表的当前行记录，e.datarow("栋号") 才是具体的对当前行的"栋号"列的取值。再说，r还没有形成结果呢，就自己调用自己，逻辑上也不对。