以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计划管理问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143530)
--  作者：狐表（小白）
--  发布时间：2019/11/27 19:57:00
--  计划管理问题
执行计划管理出错：无法将类型为“Foxtable.WinForm.Table”的对象强制转换为类型“Foxtable.Table”。怎么修改？


计划2代码：
Dim tbl As Table = Forms("计划").Controls("Table1")
Dim t As WinForm.TabControl = Forms("计划").Controls("TabControl1")
If Tbl.position = Tbl.rows.count - 1 Then
    tbl.position = 0
Else
    tbl.position = tbl.position + 1
End If
tbl.Select(tbl.Position,tbl.cols("姓名").Index)
If tbl.ColSel = 1 Then
    Tbl.Cols("姓名").AllowEdit = False
    If tbl.Current IsNot Nothing Then
        Vars("hh") = tbl.Current("姓名")
        t.SelectedIndex = 1
    End If
End If
[此贴子已经被作者于2019/11/27 19:57:42编辑过]
--  作者：有点蓝
--  发布时间：2019/11/27 20:07:00
--  
if Forms("计划").opened then

    Dim tbl As Table = Forms("计划").Controls("Table1").table
    Dim t As WinForm.TabControl = Forms("计划").Controls("TabControl1")
    If Tbl.position = Tbl.rows.count - 1 Then
……
endif
--  作者：狐表（小白）
--  发布时间：2019/11/27 22:32:00
--  
谢谢