变量设置问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你没弄懂代码的含义呀：

Tables(i).Select(2,Tables(i).cols(n).index) >>> Tables(i).Select(r,Tables(i).cols(n).index)

9楼代码也修改了，申请加精了········

[此贴子已经被作者于2011-5-20 15:30:16编辑过]

哇哈，申请真的有效啊····· 图片点击可在新窗口打开查看

现在也还没有弄懂代码的含义,慢慢琢磨.

现在9楼代码能准确理解人的意图,精华!

谢谢!

以下是引用老有所乐在2011-5-20 16:57:00的发言：

现在也还没有弄懂代码的含义,慢慢琢磨.

现在9楼代码能准确理解人的意图,精华!

谢谢!

哪条代码不懂的，你可以逐一列出来。。。

这条 r = .Find(f,0,Tables(i).cols(n).index, False, False, True) 的意思不大理解

为什么要false 和 true

[此贴子已经被作者于2011-5-20 18:13:40编辑过]

你都不看帮助文件吗：

Find

在指定列中查找指定的字符内容，如果找到，返回行的位置，否则返回-1。
如果Table处在汇总模式下，计算行位置的时候，分组行不包括在内。

语法：

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

下表是参数说明：

参数	说明
StrFind	字符型，要查找的内容
RowStart	整数型，从此行开始查找
Col	整数型，指定要查找的列的位置，也可以是字符型，指定要查找的列的名称。
ColName	字符型，要查找的列的名称。
caseSensitive	逻辑型，是否区分大小写
fullMatch	逻辑型，是否完全匹配，如果设为False，那么查找“北京”,“北京市”也符合要求。
Wrap	逻辑型，是否循环查找。如果设为True，从RowStart指定的行开始查找，一直找到最后一行，如果还是没有找到符合条件的行，那么就从第一行开始重新查找。

示例一

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

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

示例二

谢谢老师,大致上看懂了!

另外,我文件窗口中combobox3的TextChanged事件有一段SQL代码:

Dim dt As DataTable
cmd.CommandText = "Select DISTINCT " & cmb2.Value & " from {订单} Where " & cmb2.Value & " Is Not Null" '需要排除重复的行,可以在字段列表前面加上关键词DISTINCT
dt = cmd.ExecuteReader()

这段代码中的表名{订单} ,能否用变量 i 代替,怎样代替?

谢谢赐教!

人人说您不看帮助文件,看来是有道理的

cmd.CommandText = "Select DISTINCT " & cmb2.Value & " from {'" & i & "'} Where " & cmb2.Value & " Is Not Null"

http://help.foxtable.com/index.html?n=1284.htm

估计： from {" & i & "} Where

主题：变量设置问题