Foxtable(狐表)用户栏目专家坐堂 → 字符串比较(求简称)


  共有3118人关注过本帖树形打印复制链接

主题:字符串比较(求简称)

帅哥哟,离线,有人找我吗?
明天的灵
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:362 积分:4236 威望:0 精华:0 注册:2017/2/7 7:41:00
字符串比较(求简称)  发帖心情 Post By:2022/11/29 9:55:00 [只看该作者]

表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 & "个")

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:名称简称.table




 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 9:58:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
明天的灵
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:362 积分:4236 威望:0 精华:0 注册:2017/2/7 7:41:00
  发帖心情 Post By:2022/11/29 10:12:00 [只看该作者]

感谢蓝版主!!自己想了一晚上,都没有写对。感谢!!

 回到顶部