Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口


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

主题:[求助]窗口

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1710 积分:11410 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]窗口  发帖心情 Post By:2020/9/12 8:27:00 [只看该作者]

老师,下面两组代码设置后还是打不开窗口只能调出系统内置窗口

If e.Col.Name = "备注" Then      '必须是摸式窗口才能打开
e.Cancel= True
Forms("备注").open
End If

上面代码设置在窗口表中(经营_Table1)



Tables("经营_Table1").Cols("备注").ComboList = "..."





[此贴子已经被作者于2020/9/12 8:29:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/12 9:10:00 [只看该作者]

去掉下面代码:
Tables("经营_Table1").Cols("备注").ComboList = "..."

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1710 积分:11410 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/9/12 10:59:00 [只看该作者]

老师,打开经营窗口点击备注列打开备注窗口单击鼠标右键报错。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:经营.rar

 

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1710 积分:11410 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/9/12 11:05:00 [只看该作者]

图片点击可在新窗口打开查看 错误信息:统检测您发表的话题内容中含有非法字符请重试...
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/12 11:17:00 [只看该作者]

右键菜单出错是因为没有切换到自定义菜单模式,在系统菜单模式无法使用自己设计的菜单:http://www.foxtable.com/webhelp/topics/1466.htm

 回到顶部