主题：能不能在没得滑动条的时候 填满滑动条的位置

 可以，参考

 http://www.foxtable.com/help/topics/2380.htm

 这样？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工作计划系统 (1).table

 代码，afterload

Tables("计划表窗口_Table1").Filter="事件类型='项目' and (类型分类='网店'or 类型分类='打印机') and 本周周数 = " & DatePart("ww",Date.Today)
Tables("计划表窗口_Table2").Filter="事件类型='工作' and (类型分类='加工'or 类型分类='其他') and 本周周数 = " & DatePart("ww",Date.Today)
Tables("计划表窗口_Table3").Filter="事件类型='学习' and (类型分类='书籍'or 类型分类='实践') and 本周周数 = " & DatePart("ww",Date.Today)
Tables("计划表窗口_Table4").Filter="事件类型='其它' and (类型分类='大专'or 类型分类='其它')  and 本周周数 = " & DatePart("ww",Date.Today)

Tables("计划表窗口_Table1").ExtendLastCol = True
Tables("计划表窗口_Table2").ExtendLastCol = True
Tables("计划表窗口_Table3").ExtendLastCol = True
Tables("计划表窗口_Table4").ExtendLastCol = True

e.Form.Controls("Label11").Text = "本周计划"

e.Form.Controls("Label8").Text = Date.Today
e.Form.Controls("Label9").Text = "第" & DatePart("ww",Date.Today) & "周"

For i As Integer = 1 To 4
    e.Form.Controls("Table" & i).Table.SetHeaderRowHeight(0)
Next