- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 甘特图表进度条显示内容 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106341)
-- 发布时间：2017/9/7 0:54:00
-- 甘特图表进度条显示内容
此主题相关图片如下：qq截图20170907003509.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:综合测试.table |
-- 发布时间：2017/9/7 8:46: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 dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
If r.IsNull("计划_开始日期") OrElse r.IsNull("计划_完成日期") Then
Else
Dim dt1 As Date = r("计划_开始日期")
Dim dt2 As Date = r("计划_完成日期")
If dt>=dt1 AndAlso dt<=dt2 Then
e.Table.ShowToolTip(r("办理人") & " " & r("备注"),e.Row,e.Col)
End If
End If
If r.IsNull("进行_开始日期")=False Then
Dim dt3 As Date = r("进行_开始日期")
Dim dt4 As Date = iif(r.Isnull("进行_完成日期"), Date.Today, r("进行_完成日期"))
If dt>=dt3 AndAlso dt<=dt4 Then
e.Table.ShowToolTip(r("办理人") & " " & r("备注"),e.Row,e.Col)
End If
End If
Dim fdr As DataRow = DataTables("事件记录").find("事件日期=#" & dt & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\'")
If fdr IsNot Nothing Then
e.Table.ShowToolTip(fdr("办理人") & " " & fdr("备注"),e.Row,e.Col)
End If
End If
-- 发布时间：2017/9/7 11:57:00
--
是放在drawcell吗？内容会移动，显示好像不是 事件记录 表格里面的内容啊！ 感谢 感谢
-- 发布时间：2017/9/7 11:58:00
--
MouseEnterCell事件
-- 发布时间：2017/9/7 13:50:00
--
可以了 谢谢 只是显示的内容还是 计划表的，不是 事件记录 表的 ，是哪里需要改啊 ，
-- 发布时间：2017/9/7 14:09:00
--
可以了 谢谢 只是显示的内容还是 计划表的，不是 事件记录 表的 ，是哪里需要改啊 ，
事件记录表有的内容，才会显示，否则显示计划表的，自己看懂代码。
-- 发布时间：2017/9/7 16:02:00
--
能帮忙改为不显示计划窗口吗？我改了好久都没改过来，而且我有点昏了，有点搞不清楚那个事件的内容具体是什么作用的了，麻烦你了，感谢 感谢
-- 发布时间：2017/9/7 16:10: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 dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
If r.IsNull("计划_开始日期") OrElse r.IsNull("计划_完成日期") Then
Else
Dim dt1 As Date = r("计划_开始日期")
Dim dt2 As Date = r("计划_完成日期")
If dt>=dt1 AndAlso dt<=dt2 Then
e.Table.ShowToolTip(r("办理人") & " " & r("备注"),e.Row,e.Col)
End If
End If
If r.IsNull("进行_开始日期")=False Then
Dim dt3 As Date = r("进行_开始日期")
Dim dt4 As Date = iif(r.Isnull("进行_完成日期"), Date.Today, r("进行_完成日期"))
If dt>=dt3 AndAlso dt<=dt4 Then
e.Table.ShowToolTip(r("办理人") & " " & r("备注"),e.Row,e.Col)
End If
End If
Dim fdr As DataRow = DataTables("事件记录").find("事件日期=#" & dt & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\'")
If fdr IsNot Nothing Then
e.Table.ShowToolTip(fdr("办理人") & " " & fdr("备注"),e.Row,e.Col)
End If
End If
-- 发布时间：2017/9/7 20:26:00
--
红色删除了 图表也没有了！！！！算了，谢谢了
-- 发布时间：2017/9/7 20:30:00
--
红色删除了 图表也没有了！！！！算了，谢谢了
MouseEnterCell事件的红色代码啊。