主题：自定义内部函数

我想做一个日进度，之前是通过取今天的日期来做开始日期的，但我现在加了一个条件，可以选择一个日期，然后按照选择的日期来做开始时间，这个该怎么弄？我将之前的代码Dim StartDate1 As Date = Date.today()换为了'Dim StartDate1 As Date = e.Form.Controls("日期").text，这样肯定是不对的，请求老师们帮忙解决一下。

Dim tbl As Table = Tables("日进度_Table1")
Tables("日进度_Table2").StopRedraw()
Dim StartDate1 As Date = Date.today()
'Dim StartDate1 As Date = e.Form.Controls("日期").text
Dim dt1 As Date = StartDate1
Dim Builder1 As New DataTableBuilder("统计1")
Do 
    Dim nm1 As String = dt1.Year & "年" &  dt1.Month & "月_" & dt1.Day
    Builder1.Adddef(nm1,Gettype(String),1)
    dt1 = dt1.Adddays(1)
    If dt1 > StartDate1 Then   
        Exit Do   
    End If  
Loop
Tables("日进度_Table2").DataSource = Builder1.BuildDataSource
For Each cl1 As Col In Tables("日进度_Table2").Cols  
    cl1.width = 20
Next
Functions.Execute("AddGanttRows0")
Tables("日进度_Table2").ResumeRedraw()

老师，有错误呀，
此主题相关图片如下：qq图片20151013144211.png

老师，我做的进度图上面显示百分比，但是百分比显示不全，能不能在列宽不变的情况下将百分比显示全，
此主题相关图片如下：qq图片20151013160442.png

我看别人的例子里面进度图上都能写文字，也能显示全，我的百分比显示不全怎么办？

老师，画进度图的时候又出现了一个错误，如图所示：
此主题相关图片如下：qq图片20151013162112.png

老师，我觉得应该是百分比太大了，然后就出现那个错误了，有个171%的，是不是因为这个引起的。

老师，进度图上，只要是百分比超过100的，百分比就不显示出来，这个应该怎么办？
此主题相关图片如下：12.png

例子在此，百分比显示不全，还有百分比超过100的百分比不显示。

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

点击浏览该文件:管理项目1.foxdb