Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
lds
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：113 积分：1784 威望：0 精华：0 注册：2019/10/21 21:57:00 		[求助]  发帖心情 Post By：2020/10/19 16:21:00 [只看该作者]

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

表A 取采购员列前4位和厅代码列前4位做比较, 如果前4位不相同就在标记列写入:厅代码与采购员不符
窗口按钮代码设置
For Each dr As DataRow In DataTables("表A").datarows
    Dim val As String = dr("厅代码")
       Dim drr As DataRow  = Nothing
    If val > "" Then
        drr  =  DataTables("表A").find("Substring(采购员,1,4) <> Substring(厅代码,1,4) ")
    End If
    If drr IsNot Nothing Then
        dr("标记")="厅代码与采购员不符"
        
    Else
        dr("标记")= Nothing
    End If
Next
上述代码不生效 所有标记行都是 厅代码与采购员不符

图片点击可在新窗口打开查看此主题相关图片如下：截图.jpg
图片点击可在新窗口打开查看

请帮忙看看 drr  =  DataTables("表A").find("Substring(采购员,1,4) <> Substring(厅代码,1,4) ") 该怎么写
 回到顶部
帅哥哟，离线，有人找我吗？
lds
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：113 积分：1784 威望：0 精华：0 注册：2019/10/21 21:57:00 		  发帖心情 Post By：2020/10/19 16:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：错误.jpg
图片点击可在新窗口打开查看执行代码后是这样
 回到顶部
帅哥哟，离线，有人找我吗？
lds
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：113 积分：1784 威望：0 精华：0 注册：2019/10/21 21:57:00 		  发帖心情 Post By：2020/10/19 16:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：截图1.jpg
图片点击可在新窗口打开查看希望是这样
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2020/10/19 16:54:00 [只看该作者]

只有同一行的采购员和厅代码比较？ 还是采购员只要和任意一行的厅代码匹配了就行？

 回到顶部
帅哥哟，离线，有人找我吗？
lds
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：113 积分：1784 威望：0 精华：0 注册：2019/10/21 21:57:00 		  发帖心情 Post By：2020/10/19 17:02:00 [只看该作者]

同一行的做比较,前4为相同就留空,不同就标记

 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2020/10/19 17:10:00 [只看该作者]

For Each dr As DataRow In DataTables("表A").datarows
    Dim val1 As String = dr("厅代码")
    Dim val2 As String = dr("采购员")
    If val1.Length > 4  AndAlso val2.Length>4  AndAlso val1.SubString(0,4) = val2.SubString(0,4) Then
        dr("标记") = "匹配"
    Else
        dr("标记") = "不匹配"
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
lds
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：113 积分：1784 威望：0 精华：0 注册：2019/10/21 21:57:00 		  发帖心情 Post By：2020/10/19 17:24:00 [只看该作者]

谢谢,效果很好.

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询