主题：日期数值绑定到滑动条实例求助！！！

其实个人感觉，楼主的案例还是用甘特图比较合适

 

 

tp://www.foxtable.com/help/topics/2355.htm

 

 

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

做了一个，其余的，你照着做即可。

 

 

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

点击浏览该文件:时间绑定.table

谢谢版主，我一定研究下，看看能不能换成这个样式

谢谢版主，十分感谢，终于等到大神指点了！

主要问题在于 窗口初始生成时,日期值为0,无法取值,所以无法随日期而动,最好做个按钮,先生成窗口,再关联数据,这样就能取到日期数值了

有点甜老师您好，我按您给我的案列做了一下，出现错误，能不能帮我看看，跪谢！！！

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

点击浏览该文件:时间绑定.table

 代码没有错，你的预计完工日期错了，各个项目的完成日期，必须在预计完工日期范围内。

无把中间的日期都删了，打开时还是
此主题相关图片如下：qq截图20140605104650.jpg


此主题相关图片如下：qq截图20140605104643.jpg

会出现错误提示，求解！！

为什么你写的“value”这个值，定好了在找开不会变，而我写的“value”这个值在定好后，在次打开就全乱了呢！郁闷啊，求解！！！

 改一下afterload的代码，如下

 

e.Form.Controls("TrackBar1").Minimum=0
e.Form.Controls("TrackBar1").Maximum=Tables("施工进度表").Current("施工工期")
Dim val As Integer = (Tables("施工进度表").Current("开工日期") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar1").value = iif(val > 0, val, 0)

e.Form.Controls("TrackBar2").Minimum=0
e.Form.Controls("TrackBar2").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("拆建完成") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar2").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar3").Minimum=0
e.Form.Controls("TrackBar3").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("水电开始") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar3").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar4").Minimum=0
e.Form.Controls("TrackBar4").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("水电结束") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar4").value=iif(val > 0, val, 0)

val = (Tables("施工进度表").Current("泥工开始") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar5").Minimum=0
e.Form.Controls("TrackBar5").Maximum=Tables("施工进度表").Current("施工工期")
e.Form.Controls("TrackBar5").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar6").Minimum=0
e.Form.Controls("TrackBar6").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("泥工结束") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar6").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar7").Minimum=0
e.Form.Controls("TrackBar7").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("木工开始") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar7").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar8").Minimum=0
e.Form.Controls("TrackBar8").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("木工结束") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar8").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar9").Minimum=0
e.Form.Controls("TrackBar9").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("油漆开始") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar9").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar10").Minimum=0
e.Form.Controls("TrackBar10").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("油漆结束") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar10").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar11").Minimum=0
e.Form.Controls("TrackBar11").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("安装开始") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar11").value=iif(val > 0, val, 0)

e.Form.Controls("TrackBar12").Minimum=0
e.Form.Controls("TrackBar12").Maximum=Tables("施工进度表").Current("施工工期")
val = (Tables("施工进度表").Current("预完工日期") - Tables("施工进度表").Current("开工日期")).TotalDays
e.Form.Controls("TrackBar12").value=iif(val > 0, val, 0)