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

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

 可以，参考

 

 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

感谢 没得你们真的是寸步难行啊！

你想要的这些代码本来就有的，你把界面稍微改了一点，代码就对应不上了，说明没看代码，或者没看懂。

还是慢一点，耐心点，自学个大概，然后再请教，事半功倍。

嗯 好的 我把这个东西做了 一定好好的在看几片！在怎么也要把基础的搞明白！