vars("year") = Date.Today.year
e.Form.Controls("Label13").Text = "本周计划"
e.Form.Controls("Table5").Table.Filter = "年份 = " & Date.today.year & " And sys_weekofyear = " & DatePart("ww",Date.Today) '表格默认显示本周
e.Form.Controls("Table8").Table.Filter = "年份 = " & Date.today.year & " And sys_weekofyear = " & DatePart("ww",Date.Today)
'
'
Tables("计划表窗口_Table6").FIlter="日期 >=#" & Date.today & "#"
Tables("计划表窗口_Table6").Filter = "日期 >=#" & Date.today & "# and 事件目标 is not null" '根据时间和事件筛选出事情,备忘录
Tables("计划表窗口_Table6").ExtendLastCol = True '功能是填表列与窗口后面的间歇
Tables("计划表窗口_Table5").ExtendLastCol = True '功能是填表列与窗口后面的间歇
'''
'
Dim dd As Date = e.Form.Controls("DateTimePicker2").Value
Dim y As Integer = dd.Year
Dim w As Integer = dd.DayOfWeek '算出今天是星期几
Dim dt1 As Date = dd.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = dd.AddDays(6 - w) '获取本周的最后一天
e.Form.Controls("Table5").Table.Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
vars("cdate") = dt1
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
filter = filter & " and 学习科目 is not null "
Tables("计划表窗口_Table8").Filter = Filter ' 默认显示本周的学习记录
和
If Forms("事件编辑窗口").opened Then
Dim rtxt = Forms("事件编辑窗口").Controls("TextBox1").basecontrol.Controls("mytxt")
rtxt.Text = e.Table.Current("心得")
End If
有冲突吗？
为什么把上面一段删除了刚才的TextBox1 字体才能用
加好友 
发短信
Post By：2016/1/29 17:12:00 [只看该作者]
