- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [讨论] 如何实现易表findtext的功能 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=952)
-- 发布时间：2008/10/22 22:51:00
-- [讨论] 如何实现易表findtext的功能
B表中的类型列引用 A表中同名列的内容，条件是两个表的“类型编码”相等。
我看了datatalbe中的find方法，还是没搞懂如何搞啊。
文件简单得很：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2008/10/22 23:08:00
--
表B "类型"列计算代码
Dim dr As DataRow
Dim Filter As String = "类型编码 = \'" & e.DataRow("类型编码") & "\'"
dr = DataTables("表A").Find(Filter)
If dr IsNot Nothing Then
e.DataRow("类型") = dr("类型")
End If
这只能当做FindText的例子，实际使用中最好还是用关联＋表达式列来实现．
-- 发布时间：2008/10/22 23:27:00
--
Dim dr As DataRow = DataTables("表A").Find("[类型编码] = \'" & e.datarow("类型编码") & "\'")
if dr("类型编码") isnot nothing
e.dataRow("类型") = dr("类型")
End If
-- 发布时间：2008/10/23 8:11:00
--
试试看。