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

 如下，改了一下，自己看一下。

 

  

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

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

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

 

 

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

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

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

 改一下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)

 改一下。

 

 你的表的列 施工工期 列，要改成 整数列

 

设置列属性 http://www.foxtable.com/help/topics/0050.htm