表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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-10/2020101916211176497.jpg)
请帮忙看看 drr = DataTables("表A").find("Substring(采购员,1,4) <> Substring(厅代码,1,4) ") 该怎么写