以文本方式查看主题

-  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=159239)
--  作者：cd_tdh
--  发布时间：2020/12/18 13:26:00
--  老师，我做的日历报错

老师，我做的日历窗口，都是用的外部用户管理，用管理员登录就不报错，用其他用户登录就会报下面的错，日历窗口AfterLoad代码如下：

_my日历 = New 自定义日历
_my日历.Panel绑定(e.Form.Controls("Panel1"))        \'该句代码有问题,但是用管理员登录又不会报错，发布前发布后都是这种情况
周历开个 = 0
周 = -10000
Dim MyDate1 As Date = _my日历.日期
e.Form.Controls("L_当前年月").text = MyDate1.Year & "年" & MyDate1.Month & "月"
_my日历.日期 = MyDate1
_my日历.刷新

 

 

全局代码绑定到panel是这样写的：

\'为了方便应用,直接将控件绑定到传入的Panel控件
Public Sub Panel绑定(ByVal pl As Foxtable.WinForm.Panel)

 

 

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.11.3.1
错误所在事件：窗口,日历,AfterLoad
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index

[此贴子已经被作者于2020/12/18 13:30:34编辑过]
--  作者：有点蓝
--  发布时间：2020/12/18 13:59:00
--  

全局代码绑定到panel是这样写的：

\'为了方便应用,直接将控件绑定到传入的Panel控件
Public Sub Panel绑定(ByVal pl As Foxtable.WinForm.Panel)

完整代码呢？
--  作者：cd_tdh
--  发布时间：2020/12/18 14:04:00
--  

全局代码中完整代码：
--  作者：cd_tdh
--  发布时间：2020/12/18 14:07:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日历全局代码.txt
--  作者：有点蓝
--  发布时间：2020/12/18 14:25:00
--  
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，找出出错的代码
--  作者：cd_tdh
--  发布时间：2020/12/18 14:30:00
--  
现在就是用管理员登录没问题，用其他账号登录就报错，发布前发不后都是这个问题
我在调试一下全局代码吧
--  作者：cd_tdh
--  发布时间：2020/12/18 16:57:00
--  

老师，全局代码中这样调试不行呢？

窗口中的代码就是第二句就报错

_my日历 = New 自定义日历
_my日历.Panel绑定(e.Form.Controls("Panel1"))        \'该句代码有问题,但是用管理员登录又不会报错，发布前发布后都是这种情况
周历开个 = 0
周 = -10000
Dim MyDate1 As Date = _my日历.日期
e.Form.Controls("L_当前年月").text = MyDate1.Year & "年" & MyDate1.Month & "月"
_my日历.日期 = MyDate1
_my日历.刷新
--  作者：有点蓝
--  发布时间：2020/12/18 17:07:00
--  
一样可以调试

Public Sub Panel绑定(ByVal pl As Foxtable.WinForm.Panel)
\'绑定后刷新数据
_Panel = pl.BaseControl
_Panel.AutoScroll = True
Me.Dock = System.Windows.Forms.DockStyle.Fill
pl.BaseControl.Controls.Add(Me)
msgbox(1)
事务标签背景刷新()
msgbox(2)
表格计算()              \'此处次序不能搞错
msgbox(3)
数据刷新()
msgbox(4)
事务标签布局()
msgbox(5)
_bl = True
End Sub
--  作者：cd_tdh
--  发布时间：2020/12/18 17:24:00
--  

4出来了，5不出来
--  作者：有点蓝
--  发布时间：2020/12/19 9:04:00
--  
那么再到【事务标签布局()】函数里面同样方式调试