Foxtable(狐表)用户栏目专家坐堂 → 计划管理问题


  共有2432人关注过本帖树形打印复制链接

主题:计划管理问题

帅哥哟,离线,有人找我吗?
狐表(小白)
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:368 积分:3973 威望:0 精华:0 注册:2019/9/17 10:06:00
计划管理问题  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107727 积分:547968 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
狐表(小白)
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:368 积分:3973 威望:0 精华:0 注册:2019/9/17 10:06:00
  发帖心情 Post By:2019/11/27 22:32:00 [只看该作者]

谢谢

 回到顶部