以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]检查包含字符串Contains【已解决】  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33139)
--  作者：gsnake
--  发布时间：2013/5/14 16:42:00
--  [求助]检查包含字符串Contains【已解决】

Dim dr1 As DataRow
For Each dr As DataRow In DataTables("工作明细").DataRows
      dr1=DataTables("统计").find( "工作内容.Contains(\'" & dr("明细工作") & "\')" )
      If dr1 Is Nothing Then
         messagebox.show("这个工作" & dr("挖掘") & "有问题","提示")
        Else
        dr1("计算工资")=dr1("计算工资")+dr("工资")
    End If      


Next

 

统计表有一个字段，包含各种工作，下面报上来的表示明细的工作内容excel表，我导入后，需要合并到统计表。

 

查找统计表中 “工作内容” 包含明细表中 “明细工作” 就将他们的工资合并起来！ 

 

find( "工作内容.Contains(\'" & dr("明细工作") & "\')" )  是不是这样，出错！

高手帮帮怎么写字段的 包含

 

谢谢
[此贴子已经被作者于2013-5-16 11:17:35编辑过]
--  作者：Bin
--  发布时间：2013/5/14 16:44:00
--  
FIND里面只可以传入表达式, 表达式不可以使用Contains的.

你可以使用 Like来替代   http://www.foxtable.com/help/topics/0222.htm
--  作者：gsnake
--  发布时间：2013/5/14 17:14:00
--  
还是不会写啊！
[此贴子已经被作者于2013-5-15 8:22:37编辑过]
--  作者：don
--  发布时间：2013/5/14 17:20:00
--  

不是吧,你VB.net都有几下,Like不会?


Dim dr1 As DataRow
For Each dr As DataRow In DataTables("工作明细").DataRows
      dr1=DataTables("统计").find( "工作内容 Like \'%" & dr("明细工作") & "%\'" )
      If dr1 Is Nothing Then 
         messagebox.show("这个工作" & dr("挖掘") & "有问题","提示")
        Else
        dr1("计算工资")=dr1("计算工资")+dr("工资")
    End If      


Next
--  作者：gsnake
--  发布时间：2013/5/14 20:50:00
--  [讨论]演示版的问题！

呵呵！我转换时因工作明细里面全是数字编码！转换成了双精度小数啦，一个文本 一个是数字，所以试了几次都有问题，所以了图片点击可在新窗口打开查看啊！

 

我太不细致了！！！真诚感谢老师啊