执行计划管理出错:无法将类型为“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编辑过]