主题：[讨论]　如何实现易表findtext的功能

B表中的类型列引用　A表中同名列的内容，条件是两个表的“类型编码”相等。

我看了datatalbe中的find方法，还是没搞懂如何搞啊。

文件简单得很：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

表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的例子，实际使用中最好还是用关联＋表达式列来实现．

Dim dr As DataRow = DataTables("表A").Find("[类型编码]  = '" & e.datarow("类型编码") & "'")
if dr("类型编码") isnot nothing
    e.dataRow("类型") = dr("类型")
End If

试试看。