以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  奇怪的Caption!!!  (http://foxtable.net/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
--  
收到,我的代码就是出现了这样的问题。不过这是小问题,无伤大雅,改用也是没有问题。