主题：自定义内部函数

我想做一个日进度，之前是通过取今天的日期来做开始日期的，但我现在加了一个条件，可以选择一个日期，然后按照选择的日期来做开始时间，这个该怎么弄？我将之前的代码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()

Dim StartDate1 As Date = e.Form.Controls("日期").Value

If startDate = nothing Then

    StartDate1 = Date.today()

End If

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

调用的时候存入参数

 

Functions.Execute("函数", e.Form.Controls("日期").Value)

 

---------------

 

Dim StartDate1 As Date = args(0) If startDate = nothing Then     StartDate1 = Date.today() End If

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

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

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74437&skin=0

 

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

上传实例。

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

例子。