Foxtable(狐表)用户栏目专家坐堂 → [分享] 飞的日历,接着改。(20140109改)


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

主题:[分享] 飞的日历,接着改。(20140109改)

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


加好友 发短信
等级:幼狐 帖子:120 积分:1007 威望:0 精华:0 注册:2015/8/31 20:26:00
  发帖心情 Post By:2016/3/16 15:19:00 [显示全部帖子]

0402的这个日历,事务提醒_全部的Afterload事件,总是有以下错误:

 

.NET Framework 版本:2.0.50727.8009
Foxtable 版本:2016.3.8.1
错误所在事件:窗口,事务提醒_全部,AfterLoad
详细错误信息:
从字符串“”到类型“Date”的转换无效。

 

贴出代码

 

Dim pal As WinForm.Panel = e.Form.Controls("Panel1")

Dim n_开始时间 As String = Format(Vars("查看全部"),"yyyy-MM-dd 00:00:00")
Dim n_结束时间 As String = Format(Vars("查看全部"),"yyyy-MM-dd 23:59:59")
Dim drs As List(Of DataRow) = DataTables("个人事务").Select("开始时间>='" & CDate(n_开始时间) & "' and 开始时间<='" & CDate(n_结束时间) & "'","开始时间")
Dim i As Integer = 0
Dim w As Integer = pal.Width
For Each dr As DataRow In drs

        Dim a As new My_事务标签(dr("主题") ,2,new List(of String))
        a.Top =  26 * i + 2
        a.Left = 2
        a.Width = w - 4
        a.Height = 24
        a.BringToFront
        a.Visible = True
        a.MyTaskDate = dr("开始时间")
        pal.BaseControl.Controls.Add(a)
        a.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

        i+= 1
Next


 回到顶部