以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  刷新当前表数据代码出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129987)
--  作者：ZJZK2018
--  发布时间：2019/1/10 11:31:00
--  刷新当前表数据代码出错
\'\'刷新当前窗口中打开的table数据
Dim e As Object = Args(0)
LockBaseMainForm() \'锁定主界面
For Each ct As Object In e.Form.Controls
    If Typeof ct Is WinForm.Table Then
        If ct.Visible = True Then
            \'ct.Table.DataTable.LoadFilter = ""
            \'ct.Table.DataTable.Load
            \'Dim ct As Table = Args(0)
            Dim flt As String = ct.Filter       \'获取过滤条件
            Dim Int As Integer = ct.Position    \'获取行位置
            Dim p As point = ct.ScrollPosition  \'获取行在屏幕中位置
            ct.StopRedraw
            ct.DataTable.Load(False)
            ct.Filter = flt
            ct.Position = Int
            ct.ScrollPosition = p
            ct.ResumeRedraw
        End If
    End If
Next
UnLockBaseMainForm() \'解锁主界面

错误提示：

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.10.9.1
错误所在事件：自定义函数table_load_e
详细错误信息：
调用的目标发生了异常。
未找到类型“Table”的公共成员“Filter”。
--  作者：有点甜
--  发布时间：2019/1/10 12:02:00
--  

 

ct 全部改成 ct.Table