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