以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老爹,Find函数增加一个参数好吗?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1590)
--  作者：菜鸟foxtable
--  发布时间：2009/1/9 13:05:00
--  老爹,Find函数增加一个参数好吗?
 

Find

在指定列中查找指定的字符内容，如果找到，返回行的位置，否则返回-1。

语法：

Find(StrFind, RowStart, Col, caseSensitive, fullMatch, Wrap)

示例一

在第一列查找“abc”，不区分大小写，不用完全匹配：

With CurrentTable
    Dim r As Integer
    r = .Find("abc", 0, 0, False, False, True)
    If r > - 1 Then \'如果找到符合条件的行
        .Select(r, .Colsel) \'则选择该行
    End If
End With


参数Col用起来好麻烦....一个表有几十列..数不过来啊..而且万一列位置一变,代码就失效了...
能否改成列名?Col.name....
这样子又方便,又不怕代码失效...
[此贴子已经被作者于2009-1-9 13:11:07编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/1/9 15:49:00
--  
可以这样得到指定名称的列位置：

Tables("订单").Cols("金额").Index
--  作者：菜鸟foxtable
--  发布时间：2009/1/9 16:33:00
--  
以下是引用狐狸爸爸在2009-1-9 15:49:00的发言：
可以这样得到指定名称的列位置：

Tables("订单").Cols("金额").Index

还是麻烦...正常来讲,要在某一列查找,当然第一时间就想到列名,而不是列的位置...

直接更改参数Col不是更合理?
--  作者：狐狸爸爸
--  发布时间：2009/1/9 16:36:00
--  
我会考虑的