专家坐堂-[求助]求指点Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求指点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84651)

--  作者：fox-BT
--  发布时间：2016/5/6 14:47:00
--  [求助]求指点
想用代码，修改导航栏标题，让标题等于某窗口某列的内容

已设代码：
Dim a As WinForm.NavBar = Forms("主窗口").controls("NavBar1")
Dim ao As String = bar.Navpages("page1").text
ao = Tables("导航栏").current("第二列")

但总提示未引用实例

请问哪里出错了？？？

--  作者：fox-BT
--  发布时间：2016/5/6 15:08:00
--

Dim bar As WinForm.NavBar = Forms("主窗口").controls("NavBar1")
Dim ao As String = bar.Navpages("page1").text
ao = Tables("导航栏").current("第二列")

是这样才对，，刚才写错了

--  作者：大红袍
--  发布时间：2016/5/6 15:40:00
--

你NavBar里面名称page1要设置正确。

Dim bar As WinForm.NavBar = Forms("主窗口").controls("NavBar1")

bar.Navpages("page1").text = Tables("导航栏").current("第二列")

--  作者：fox-BT
--  发布时间：2016/5/6 16:05:00
--
这样对了，，，原来这样都有关系。。。。。。

谢了