Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 找不到对象错误怎么处理？


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

主题：[求助] 找不到对象错误怎么处理？
帅哥哟，离线，有人找我吗？
13568406997
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3486 威望：0 精华：0 注册：2021/8/9 10:30:00 		[求助] 找不到对象错误怎么处理？  发帖心情 Post By：2023/1/4 17:28:00 [只看该作者]


************** 异常文本 **************
System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 Foxtable.WinForm.Form.o___0o.oo.(Object A_0, EventArgs A_1)
   在 System.Windows.Forms.Control.OnEnter(EventArgs e)
   在 System.Windows.Forms.Control.NotifyEnter()
   在 System.Windows.Forms.ContainerControl.UpdateFocusedControl()

这些是什么意思啊，看不懂
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/1/4 17:33:00 [只看该作者]

做什么操作，执行什么代码出的错？

 回到顶部
帅哥哟，离线，有人找我吗？
13568406997
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3486 威望：0 精华：0 注册：2021/8/9 10:30:00 		  发帖心情 Post By：2023/1/5 8:54:00 [只看该作者]

If e.Control = True Then
    Select Case e.KeyCode
        Case keys.F8
            Forms("数据记录窗口").Open
            Dim tbl As Table = e.Table
            Dim rw As Row = tbl.Current
            Dim fm数据记录窗口 As WinForm.Form = Forms("数据记录窗口")
            Dim rcd As winform.RecordGrid = Forms("数据录入").CreateControl("rcd_", ControlTypeEnum.RecordGrid)
            rcd.Table = e.Table
            Dim fnt As New Font("黑体", 12)
            rcd.Font = fnt
            rcd.Build() '生成记录窗口
            rcd.SetBounds(10, 10, 600, 1500) '指定位置和尺寸
            Forms("数据记录窗口").AddControl(rcd)
Case Keys.F9
    End Select
    
End If

在全局表事件中写了上面的代码，在窗口中显示当前表的记录窗口，运行没有问题，但在这个窗口里点击鼠标时，会弹出错误
 回到顶部
帅哥哟，离线，有人找我吗？
13568406997
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3486 威望：0 精华：0 注册：2021/8/9 10:30:00 		  发帖心情 Post By：2023/1/5 8:58:00 [只看该作者]

如图
图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/1/5 8:59:00 [只看该作者]

全局表的哪个事件？

 回到顶部
帅哥哟，离线，有人找我吗？
13568406997
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3486 威望：0 精华：0 注册：2021/8/9 10:30:00 		  发帖心情 Post By：2023/1/5 9:02:00 [只看该作者]

keyDown
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim rcd As winform.RecordGrid = Forms("数据录入").CreateControl("rcd_", ControlTypeEnum.RecordGrid)
改为
Dim rcd As winform.RecordGrid = Forms("数据记录窗口").CreateControl("rcd_", ControlTypeEnum.RecordGrid)
 回到顶部
帅哥哟，离线，有人找我吗？
13568406997
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3486 威望：0 精华：0 注册：2021/8/9 10:30:00 		  发帖心情 Post By：2023/1/5 9:23:00 [只看该作者]

哦，粗心了，复制过去的，改漏了图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询