表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
Next
MessageBox.Show("共替换:" & i & "个")