字符串比较（求简称） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表A的字段“公司全称”是完整的公司名称

表B的字段“公司简称”是完整的公司名称中的关键字，不重复

现要实际根据表B的公司简称，把表A所有行的公司简称填写上。

以下第6行写法报错，请指导

Dim s As String

Dim dr2 As DataRow

Dim i As Integer = 0

For Each dr1 As DataRow In DataTables("表A").datarows

s = dr1("公司全称")

Dr2 = DataTables("表B").Find("s like '%" & 公司简称 & %'")

If dr2 Is Nothing Then

MessageBox.Show("没有找到此公司:" & s)

Else

dr1("公司简称") = dr2("公司简称")

i = i + 1

End If

MessageBox.Show("共替换:" & i & "个")

下载信息 [文件大小：下载次数： ]
点击浏览该文件:名称简称.table

主题：字符串比较（求简称）