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

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