以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]菜单 AfterSelRangeChange  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87685)
--  作者：zcgmxf
--  发布时间：2016/7/16 23:50:00
--  [求助]菜单 AfterSelRangeChange

老师，我有一 表A 有时增加列的时候 提示 “表A 中没有 “”   的列” 详细错误提示 ：错误所在事件

菜单 AfterSelRangeChange  未将引用设置到对象实例。但是表A的AfterSelRangeChange 没有代码，仔细检查了表A的每一列，没有“” 符号的列，我也没有编译过主程序菜单AfterSelRangeChange 事件   是不是主程序菜单的AfterSelRangeChange 事件有问题？

 

Dim t As Table
RibbonMenu.StatusBar.Message3 = ""
Vars("SysUpdateAggregate") = False
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then
    Return
Else
    t = CurrentTable
End If
If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then
    Return
End If
For c As Integer = t.LeftCol To t.RightCol
    If c < 1 Then
        Continue For
    End If
    If t.Cols(c).IsNumeric = False Then
        Return
    End If
Next
Vars("SysUpdateAggregate") =  True

[此贴子已经被作者于2016/7/17 5:59:54编辑过]
--  作者：狐狸爸爸
--  发布时间：2016/7/18 8:43:00
--  
1、关闭foxtable，重启foxtable，重新打开项目
2、升级到最新版本
3、如果还有问题，上传例子测试
--  作者：bressernon
--  发布时间：2017/1/11 12:20:00
--  
遇到问题查到这个帖子，顶一下。

我用的表最近也出现这个问题，后台用的SQLserver数据库。
在表中插入列也是报错这个。

Foxtable是最新版本，也重启过。


图片点击可在新窗口打开查看此主题相关图片如下：插入列报错.jpg
图片点击可在新窗口打开查看
--  作者：有点色
--  发布时间：2017/1/11 12:34:00
--  

 你的AfterSelRangeChanged事件写了什么代码，贴出来。

 

 
--  作者：bressernon
--  发布时间：2017/1/11 12:59:00
--  
空的，没有代码

所有的表都没有用这个事件。
--  作者：有点色
--  发布时间：2017/1/11 14:24:00
--  
 如果不影响使用，就不需要理会。这种提示，不会经常发生。
--  作者：133198609
--  发布时间：2017/1/18 23:01:00
--  
我也出现了这个错误提示，但是出现问题的路径不一样。
我是在窗口中加了目录树，然后还加了表格，用目录树控制绑定表格。如果我在选中表格里的多行时双击目录树切换绑定表，就会跳出这个提示，其他正常。
--  作者：有点色
--  发布时间：2017/1/19 0:07:00
--  

回复7楼，切换绑定表之前，先把选中多行改成选中一行，如 e.Form.Controls("Table1").Table.select(0,0)