- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义内部函数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75711)
-- 发布时间：2015/10/13 12:36:00
-- 自定义内部函数
我想做一个日进度，之前是通过取今天的日期来做开始日期的，但我现在加了一个条件，可以选择一个日期，然后按照选择的日期来做开始时间，这个该怎么弄？我将之前的代码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()
-- 发布时间：2015/10/13 14:26:00
--
Dim StartDate1 As Date = e.Form.Controls("日期").Value
If startDate = nothing Then
StartDate1 = Date.today()
End If
-- 发布时间：2015/10/13 14:43:00
--
老师，有错误呀，
此主题相关图片如下：qq图片20151013144211.png
-- 发布时间：2015/10/13 14:56:00
--
调用的时候存入参数
Functions.Execute("函数", e.Form.Controls("日期").Value)
---------------
|
Dim StartDate1 As Date = args(0) If startDate = nothing Then StartDate1 = Date.today() End If |
-- 发布时间：2015/10/13 16:10:00
--
老师，我做的进度图上面显示百分比，但是百分比显示不全，能不能在列宽不变的情况下将百分比显示全，
此主题相关图片如下：qq图片20151013160442.png
我看别人的例子里面进度图上都能写文字，也能显示全，我的百分比显示不全怎么办？
-- 发布时间：2015/10/13 16:14:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74437&skin=0
-- 发布时间：2015/10/13 16:22:00
--
老师，画进度图的时候又出现了一个错误，如图所示：
此主题相关图片如下：qq图片20151013162112.png
-- 发布时间：2015/10/13 16:22:00
--
上传实例。
-- 发布时间：2015/10/13 16:30:00
--
老师，我觉得应该是百分比太大了，然后就出现那个错误了，有个171%的，是不是因为这个引起的。
-- 发布时间：2015/10/13 16:33:00
--
例子。