以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  奇怪的Caption！！！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119392)
--  作者：kylin
--  发布时间：2018/5/24 9:16:00
--  奇怪的Caption！！！
代码1：
For each cl as Col in Tables("表1").Cols
     Dim cn as string =  cl.Caption
Next

代码2：
For i as Integer = 0 To 5 
     Dim cn as string =  Tables("表1").Cols(i).Caption
Next

结果是，代码1出现错误提示：编译错误，Caption不是Col的成员
代码2正常
[此贴子已经被作者于2018/5/24 11:09:10编辑过]
--  作者：有点甜
--  发布时间：2018/5/24 9:17:00
--  
是 caption，不要写错
--  作者：lzw001
--  发布时间：2018/5/24 9:22:00
--  
这里 cn 不弄个数组的话，感觉不能每一个都赋值呀，它的值应该只是下标为5这个值
--  作者：kylin
--  发布时间：2018/5/24 11:11:00
--  
以下是引用有点甜在2018/5/24 9:17:00的发言：
是 caption，不要写错
刚才做例子产生了笔误。事实请测试，有点小问题
--  作者：kylin
--  发布时间：2018/5/24 11:11:00
--  
以下是引用lzw001在2018/5/24 9:22:00的发言：
这里 cn 不弄个数组的话，感觉不能每一个都赋值呀，它的值应该只是下标为5这个值

这样赋值并没有什么问题
--  作者：有点甜
--  发布时间：2018/5/24 11:21:00
--  
以下是引用kylin在2018/5/24 11:11:00的发言：
刚才做例子产生了笔误。事实请测试，有点小问题

 

测试没问题

 

For Each cl As Col In Tables("表a").Cols
    Dim cn As String =  cl.Caption
Next

 

 
--  作者：kylin
--  发布时间：2018/5/24 18:07:00
--  
收到，我的代码就是出现了这样的问题。不过这是小问题，无伤大雅，改用也是没有问题。