标题：老爹,Find函数增加一个参数好吗?

1楼

菜鸟foxtable 发表于：2009/1/9 13:05:00

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编辑过]

2楼

狐狸爸爸 发表于：2009/1/9 15:49:00

可以这样得到指定名称的列位置：

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

3楼

菜鸟foxtable 发表于：2009/1/9 16:33:00

以下是引用狐狸爸爸在2009-1-9 15:49:00的发言：
可以这样得到指定名称的列位置：

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

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

直接更改参数Col不是更合理?

4楼

狐狸爸爸 发表于：2009/1/9 16:36:00

我会考虑的

共4 条记录, 每页显示 10 条, 页签: [1]