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

嘿嘿，谢谢单击红色圆点后，事件表，还是没有选中那一行呢，感谢感谢

谢谢谢谢，麻烦了，感谢

If DrawGannt = False Then

Functions.Execute("BuildGanttTable") '甘特图代码十二分之一

Dim dt As Date = Date.DateTimePicker5.AddDays(-400)

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

Dim name = dt.Year & "年" & dt.Month & "月_" & dt.Day

End If

能帮忙看看这个吗？感谢感谢

定位

点击查看，TimePicker5的日期定位到红色的地方。感谢感谢

此主题相关图片如下：qq截图20170914222138.jpg

此主题相关图片如下：qq截图20170915230002.jpg

怎么让光标离开甘特图的进度条后消失呀，因为不消失后点击其他表格也会显示在上面，感谢感谢

此主题相关图片如下：qq截图20170915230018.jpg

[此贴子已经被作者于2017/9/15 23:01:21编辑过]

不好意思，是我字打错了，不好意思。

鼠标放到上面会显示，但是离开后不就消失了，在其他表也不消失，这个在那里可以改改吗？感谢感谢

If e.Col.Name = "项目内容" And "办理人" Then

e.Table.HideToolTip()

End If

能再帮忙看看吗？感谢感谢

是放到 mouseleavecell吗没有什么反映呢，谢谢。

能帮忙看看这段代码吗？不知道是那里不对，

第一次执行没错，再错执行就不能更新了弹出的表格还是之前的内容，感谢感谢

比如双击单元格，然后窗口会弹出来，也会和代码执行的，一样，当关掉的后，点击其他的单元格，弹出窗口的内容还是上一个点单元格的内容，没有更新，感谢感谢

Dim t As Table = Tables("计划表窗口_Table9")

Dim dt As Date = t.Cols(t.colsel).Name.Replace("年","-").Replace("月_","-")

Dim r As Row = Tables("计划表窗口_Table4").Rows(t.Position)

Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "'")

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

[此贴子已经被作者于2017/9/24 14:47:02编辑过]

主题：甘特图使用