主题：用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

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

OK

搞定了，谢谢！