- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 甘特图月份设置为英语 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140348)
-- 发布时间：2019/9/3 22:27:00
-- 甘特图月份设置为英语
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:显示英文甘特图.table |
老师，能再帮忙看看吗？实在是头都搞晕也没看搞出来，感谢 感谢，就是月份那里怎么能改变为英语版本呀！感谢
此主题相关图片如下：搜狗截图19年09月03日2225_2.jpg
-- 发布时间：2019/9/3 23:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:显示英文甘特图.zip |
-- 发布时间：2019/9/4 9:27:00
--
谢谢老师，可以了，就是有个小问题，在图表按钮里面有个 定位按钮失效了，能在帮忙看看吗？感谢老师
If DrawGannt = False Then
Functions.Execute("BuildGanttTable") \'甘特图代码十二分之一
Dim dt As Date = Date.Today.AddDays(-400)
Dim t = e.Form.controls("Table9").Table
Dim name = dt.Year & "-" & dt.Month & "_" & dt.Day
-- 发布时间：2019/9/4 9:46:00
--
Dim name = dt.Year & "-" & dt.Month & "_" & dt.Day
改为
Dim name = Format(dt,"yyyy-MM_dd")
-- 发布时间：2019/9/4 9:56:00
--
谢谢你，老师，太感谢了，辛苦了，
-- 发布时间：2019/9/4 11:34:00
--
老师，能请教一个姓问题吗？
就是现在都可以了，就是时间对不上，
就是甘特图蓝色的调应该是当天（今天）的位置，但是不知道是不是没有读取到就直接显示到当月月底了，
感谢 感谢，我检查了代码，是不是Table9的positionchanged 的红色代码问题呀？感谢 感谢
Dim t As Table = Tables("计划表窗口_Table9")
Dim dt As Date = t.Cols(t.colsel).Name.Replace("year","-").Replace("month_","-").split("_")(0)
Dim r As Row = Tables("计划表窗口_Table4").Rows(t.Position)
Dim idx As Integer = Tables("记事表").findRow("事件日期=#" & dt & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\'")
If idx >= 0 Then
Tables("记事表").Position = idx
Else
\'msgbox(2)
End If
此主题相关图片如下：搜狗截图19年09月04日1130_1.png
此主题相关图片如下：搜狗截图19年09月04日1130_1.png-- 发布时间：2019/9/4 11:56:00
--
Dim dt As Date = cdate(t.Cols(t.colsel).Name.Replace("_","-")）
-- 发布时间：2019/9/4 12:42:00
--
能在帮忙看看吗？还是在月底的位置，感谢了。
-- 发布时间：2019/9/4 13:55:00
--
代码没有问题，没有符合条件的数据
-- 发布时间：2019/9/4 14:14:00
--
谢谢老师，以前这个是设定的如果完成计划的列没有时间就显示到当天。
老师帮忙看看是不是这里的这几段代码出错了呀？ 内容有点复杂，感谢了，
此主题相关图片如下：搜狗截图19年09月04日1413_1.png
drawcell里面
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("year","-").Replace("month_","-").split("_")(0)
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.StartDraw()
If dt < Date.Today Then
e.Graphics.FillRectangle(Brushes.Cyan,e.x ,e.y + 1, e.Width, e.Height - 5)
Else
e.Graphics.FillRectangle(Brushes.Cyan,e.x ,e.y + 1, e.Width, e.Height - 5)
End If
e.EndDraw()
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.Graphics.FillRectangle(Brushes.Blue,e.x ,e.y + 4, e.Width, e.Height - 11)
End If
End If
Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\' and 处理状态=\'未处理\'")
If fdr IsNot Nothing Then
\'e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y, e.Width, e.Height) \'方形
e.Graphics.FillPie(Brushes.Red,e.x ,e.y, e.Width, e.height,0,360) \'原形
End If
End If
doubleclick里面的
Dim t As Table = Tables("计划表窗口_Table9")
Dim dt As Date = t.Cols(t.colsel).Name.Replace("year","-").Replace("month_","-").split("_")(0)
Dim r As Row = Tables("计划表窗口_Table4").Rows(t.Position)
\'Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\'")
\'Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\' and 事件日期=\'" & r("事件日期") & "\'")
Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\' and 事件日期=\'" & dt & "\'")
If fdr IsNot Nothing Then
\'msgbox(1)
Forms("记事表编辑窗口").show
Else
Forms("添加事件窗口").show
Forms("添加事件窗口").Controls("DateTimePicker1").text = dt
Forms("添加事件窗口").Controls("TextBox1").text = r("项目名称")
Forms("添加事件窗口").Controls("TextBox2").text = r("项目流程")
End If
mouseentercell里面的
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("year","-").Replace("month_","-").split("_")(0)
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("项目流程") & "\' and 处理状态=\'未处理\'")
If fdr IsNot Nothing Then
e.Table.ShowToolTip(fdr("事件内容") & " " & fdr("办理人"),e.Row,e.Col)
End If
End If