以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用Like运算设值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14301)
--  作者：HP
--  发布时间：2011/11/15 11:06:00
--  用Like运算设值

请问以下代码用Like能否实现？红色部份有问题，谢谢！

 

With CurrentTable
    Dim r As Integer
    r = .FindRow("[订单号码] Like \'A*\'", .Position + 1, True ) \'从当前行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
        DateRow("J") = "贴纸类"
    End If
End With
--  作者：狐狸爸爸
--  发布时间：2011/11/15 11:13:00
--  
With CurrentTable
    Dim r As Integer
    r = .FindRow("[订单号码] Like \'A*\'", .Position + 1, True ) \'从当前行开始查找
    If r >= 0 Then \'如果找到的话
          .Position = r \'定位到找到的行.
          .Current("J") = "贴纸类"
    End If
End With
[此贴子已经被作者于2011-11-15 11:13:30编辑过]
--  作者：HP
--  发布时间：2011/11/15 11:27:00
--  

OK

搞定了，谢谢！