主题：求一个代码的写法

.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2016.4.17.1
错误所在事件：窗口,部门信息,AfterLoad
详细错误信息：
重载决策失败，因为没有可访问的“Select”接受此数目的参数。

 

 

第二行代码是第一行第一列？中间改成逗号还是不行，跟之前一样没变化，刚打开窗口的时候，以及切换页面的第一次都是能定位到表，从第2次切换开始，就定位不到表了？

如果 把你写的这个表格定位的代码写在  tabcontrol的切换页面后执行的代码   写成通用的，应该就可以了，请教方法，

 

下面我上个例子这个例子改了个地方，就是3个增加页面按钮上面都多了一句tab.Selectedpage = tab.tabpages(Name)  这样点击按钮的时候也可以切换页面，但是这样出现个问题就是，点击按钮新增加窗口的时候提示显示正常，当用按钮i来切换的时候，提示问题又变成“窗口没有表了”，用页面标题切换好像没问题，求这个解决方法，好像跟我刚才说的在页面切换里面写一个代码应该是同一个问题所在。

 

我感觉这2个问题应该是一个问题，就是在页面切换不同页面后执行的代码写一下

 

估计意思应该是，如果当前页面中有表的话切换页面后，那个提示问题就改成  正在操作的表名，应该是跟systemidle的代码差不多的意思？但是肯定不一样的，请帮忙完善一下吧。

 

2个问题，第一个就是之前说的切换页面后，表格没定位好，提示没有变化，第二个就是点击新增页面按钮的时候切换页面也是 提示文字没有变化，但是我感觉如果在页面切换事件写个代码，这俩问题应该是一个问题。大概意思可能就是如果当前页面中有表格就定位到这个表格，并将提示的那个文字进行相应的更改，如果页面没有表就提示，当前窗口没看有表，如果有表（超过一个）的话就 定位在第一个表上，提示当前正在操作表名，

 

个人见解，也可能是哪里代码本身不完善，求大大帮忙解决一下吧，先谢谢啦。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6x增增.foxdb

非常感谢，请求代码完善一下谢谢啦

 

Dim bc = Functions.Execute("FindTable",c)
        If bc IsNot Nothing Then
            str2 = "正操作表名为:" & "【" & bc.Name & "】" & "  总行数:"
            Str2 = Str2 & bc.Rows.Count & "  当前行:" & (bc.Position + 1)

 

因为systemidle事件中原来的例子光有str2 = "正操作表名为:" & "【" & bc.Name & "】" & "  总行数:"这句

露了第二句，现在加上第二句怎么加 貌似这样直接写bc没定义表？一直弹窗出错，请帮我完善一下吧，谢谢啦。bc.table也不行。

好的谢谢，如果想增加一个代码功能，就是在项目里增加一个按钮  名字叫“FOX“

 

还是您发的这个实例，当页面中有表的时候这个按钮可以用，当页面中没有表的时候，按钮不可以用，这个代码怎么写，写在哪里呢？还是配合之前的实例，基本加上这个就完成啦。谢谢啦。

 

上传例子为您的原例，外加了一个FOX按钮

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7x.foxdb

写在哪里呢？窗口的afterload还是页面切换页面还是systemidle呢？整合到内部函数或者全局代码里面去啊?

我试试先

OK搞定了，写在systemidle里面去了，这样的话systemidle负担重不重啊？systemidle执行法则是怎么样的》？是不管你写的代码怎么样他就是每一秒都在执行所有的systemidle里面的所有代码呢？还是当systemidle里面写的代码，比如点击按钮执行事件的时候才运行systemidle呢？如果是每秒systemidel执行全部代码的话貌似放在这里就不太合适啦。

我从systemidle移到页面切换中去了也可以执行，比放在systemidle好是吧？

现在还发现一个问题有点缺陷，其他地方都不改，还是之前的实例，我发现个问题就是，页面切换的时候虽然底下的文字变了，变成表的名字了这个没问题的，但是实际定位的表是在最后打开的页面中的那个表里面，切换页面的时候也是默认在最后那个页面的那个表里面，怎么让实际切换页面的表定位在当前页面的表上，而不是最后那个页面的表上。应该是窗口设计排版的问题，单纯一个窗口中一个表的不出现这个问题，抛开排版问题不谈，怎么让这个焦点在切换页面的时候定位在表里面，实例中好像是点标题切换也没问题，点击打开页面的按钮切换不行。 就那3个增加页面的按钮用来切换的时候出问题，丢失表格焦点

 

 

 

If bc IsNot Nothing Then
            str2 = "正操作表名为:" & "【" & bc.Name & "】" & "  总行数:"
            Str2 = Str2 & bc.Rows.Count & "  当前行:" & (bc.Selection.r1)
            'Str2 = Str2 & bc.Table.Rows.Count & "  当前行:" & (bc.Table.Position + 1)
            bc.Select

 

 

我直接在这里加了个bc.select貌似可以了，但是这样改不知道对不对？？？？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7x.foxdb

此主题相关图片如下：7x.png

 

 

 

 

现在的BUG是，打开窗口的时候默认的是页面合集第一页里面没有表，按钮7是页面中有表的时候能用，没有表的时候不能用，

默认打开项目的时候，第一页没有表，但是按钮7是可以用的，这个改起来容易，让打开项目的时候默认按钮7不能用就行了，不过下面的BUG解决了这个应该也就自动解决了

 

下面就是我要说的BUG，因为按钮7是页面有表的时候可以用，没有表的时候不可以用，所以新增加的页面和页面切换的时候，用现在的代码执行都没问题，但是页面关闭的时候，比如现在的截图，关闭页面的时候救出问题了，那个按钮7是否可用就不受控制了。比如图片中3现在打开的是窗口4里面没有表，那个按钮也是不可用状态，当关闭窗口4，页面自动变到窗口3的时候，窗口3是有表的，但是按钮7还是不可用状态，就是说关闭页面按钮功能没实现。可能是代码写错了。求大神完善一下谢谢了，例子已发。