甘特图使用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 甘特图使用

共有13015人关注过本帖树形打印复制链接主题：甘特图使用

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/3 11:55:00 [显示全部帖子]

If DrawGannt Then
    Dim r As Row = Tables("计划表窗口_Table4").Rows(e.Row.Index)
    Dim dt1 As Date = r("计划_开始日期")
    Dim dt2 As Date = r("计划_完成日期")
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    If dt>=dt1 AndAlso dt<=dt2 Then
        e.StartDraw()
        If dt < Date.Today Then
            e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 5, e.Width, e.Height - 10)
        Else
            e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 3, e.Width, e.Height - 7)
        End If
        e.EndDraw()
    End If
    Dim dt3 As Date = r("进行_开始日期")
    Dim dt4 As Date = r("进行_完成日期")
    If dt>=dt3 AndAlso dt<=dt4 Then
        e.Graphics.FillRectangle(Brushes.Black,e.x ,e.y + 8, e.Width, e.Height - 18)
    End If
End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/3 14:33:00 [显示全部帖子]

If DrawGannt AndAlso e.Row.Index >= 0 AndAlso e.Row.Index < Tables("计划表窗口_Table4").Rows.count Then
    Dim r As Row = Tables("计划表窗口_Table4").Rows(e.Row.Index)
    Dim dt1 As Date = r("计划_开始日期")
    Dim dt2 As Date = r("计划_完成日期")
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    If dt>=dt1 AndAlso dt<=dt2 Then
        e.StartDraw()
        If dt < Date.Today Then
            e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 5, e.Width, e.Height - 10)
        Else
            e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 3, e.Width, e.Height - 7)
        End If
        e.EndDraw()
    End If
    Dim dt3 As Date = r("进行_开始日期")
    Dim dt4 As Date = r("进行_完成日期")
    If dt>=dt3 AndAlso dt<=dt4 Then
        e.Graphics.FillRectangle(Brushes.Black,e.x ,e.y + 8, e.Width, e.Height - 18)
    End If
End If

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/3 15:58:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:甘特图使用.table

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/3 17:48:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:甘特图使用.table

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/3 21:59:00 [显示全部帖子]

你的窗口试模式窗口？改成独立窗口，不是有赋值代码么？表格的doubleClick事件。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/4 9:20:00 [显示全部帖子]

修改代码

If Forms("窗口1").Opened()
    Dim t1 As Table = Tables("任务")
    Dim t2 As Table = Tables("窗口1_Table2")
    If t1.TopVisibleRow >=0 Then
        Dim r As Row = t1.Rows(t1.TopVisibleRow)
        Dim dt As Date = r("开始日期")
        If dt = Nothing Then Return
        Dim nm As String = dt.Year & "年" & dt.Month &"月_" & dt.Day
        Dim idx As Integer= t2.cols(nm).Index
        t2.LeftVisibleCol = idx
    End If
End If

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/4 12:51:00 [显示全部帖子]

请上传对应项目具体说明问题。

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/5 0:09:00 [显示全部帖子]

AfterLoad事件，写代码

For i As Integer = 0 To t.DataTable.basetable.rows.count-1
    Dim dr = t.DataTable.basetable.rows(i)
    Dim r As Row = Tables("计划表窗口_Table4").Rows(i)
    Dim fdr As DataRow = DataTables("事件记录").find("事件日期<=#" & Date.Today.AddDays(-30) & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "' and 处理情况='未处理'")
    If fdr IsNot Nothing Then
        dr.RowError = fdr("事件日期")
    End If
Next

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/5 9:54:00 [显示全部帖子]

窗口AfterLoad事件

Dim t = e.Form.controls("Table9").Table

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/5 10:13:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:甘特图使用 (1) (1).table

下一主题 >> << 上一主题

总数 43 1 2 3 4 5 下一页

主题：甘特图使用