- 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=154349)
-- 发布时间：2020/9/12 8:27:00
-- [求助]窗口
老师，下面两组代码设置后还是打不开窗口只能调出系统内置窗口
If e.Col.Name = "备注" Then \'必须是摸式窗口才能打开
e.Cancel= True
Forms("备注").open
End If
上面代码设置在窗口表中（经营_Table1）
[此贴子已经被作者于2020/9/12 8:29:13编辑过]
-- 发布时间：2020/9/12 9:10:00
--
去掉下面代码：
Tables("经营_Table1").Cols("备注").ComboList = "..."
-- 发布时间：2020/9/12 10:59:00
--
老师，打开经营窗口点击备注列打开备注窗口单击鼠标右键报错。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:经营.rar |
-- 发布时间：2020/9/12 11:05:00
--
错误信息：统检测您发表的话题内容中含有非法字符请重试...| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
-- 发布时间：2020/9/12 11:15:00
--
那是currentchanged事件代码有问题，类似的问题之前已经问过并且解决过无数次了，到现在还是犯同样的错误，就没有一点记性么？
凡是代码使用到Current 的地方请先判断是否空值再使用：http://www.foxtable.com/webhelp/topics/0641.htm
\'副本Table中选定一行时,表A也能自动选定这一行
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Return \'则返回
End If
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("经营").FindRow(dr)
If wz >=0 Then
Tables("经营").Position = wz
End If
-- 发布时间：2020/9/12 11:17:00
--
右键菜单出错是因为没有切换到自定义菜单模式，在系统菜单模式无法使用自己设计的菜单：http://www.foxtable.com/webhelp/topics/1466.htm