Foxtable(狐表)用户栏目专家坐堂 → [求助]两个表对比部分数据


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

主题:[求助]两个表对比部分数据

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 18:17:00 [显示全部帖子]

参考代码

 

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("")
    Dim fdr As DataRow = dt2.Find("任务 like '" & dr("任务").split(" ")(0) & " %'")
    If fdr Is Nothing Then
        msgbox(dr("任务"))
    Else
        If dr("工时") = fdr("工时") Then
            'msgbox(123)
        End If
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/18 16:16:00 [显示全部帖子]

以下是引用81538475在2018/9/18 14:48:00的发言:
不好意思,好久之前的帖子,现在还有点疑问。。 #12458 录入设备信息   如果数字和汉字中间没有空格的话,有办法判断吗

 

用正则匹配,参考

 

Dim str = " #12458 录入设备信息"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[#0-9]+")
msgbox(mc(0).value) 


 回到顶部