专家坐堂-[求助]如何实现这样的表格绘制Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现这样的表格绘制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104374)

--  作者：jiangnanlove
--  发布时间：2017/7/28 10:33:00
--  [求助]如何实现这样的表格绘制
RT··
就是绘制这样的EXCEL表格·
创建组····

此主题相关图片如下：粘贴图片(1).png

--  作者：有点甜
--  发布时间：2017/7/28 10:38:00
--

foxtable做不到这种的功能。

数据的展示，建议你用窗口来做 http://www.foxtable.com/webhelp/scr/0698.htm

--  作者：jiangnanlove
--  发布时间：2017/7/28 10:51:00
--  回复：（有点甜）foxtable做不到这种的功能。 ...

那请问甜老师··如果要实现这种·显示数字的甘特图·需要怎么设置呢·
此主题相关图片如下：粘贴图片11.png

--  作者：有点甜
--  发布时间：2017/7/28 11:01:00
--

你绘制甘特图的时候，顺便把数字绘制出来，即可。

If DrawGannt Then
    Dim r As Row = Tables("任务").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.text = "111"
        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
End If

http://www.foxtable.com/webhelp/scr/2355.htm

--  作者：jiangnanlove
--  发布时间：2017/7/28 13:47:00
--  [求助]回复：（有点甜）你绘制甘特图的时候，顺便把数字绘制...
请问甜老师··这是用表达式还是代码来实现·
此主题相关图片如下：a粘贴图片.png

这种功能怎么实现·如图·
就是·需用天数是计算出来的·有小数··后面周期是·按照前面来的·只要天数不足1有小数就自动加上一天·

--  作者：有点甜
--  发布时间：2017/7/28 14:02:00
--

参考

http://www.foxtable.com/webhelp/scr/0272.htm

--  作者：jiangnanlove
--  发布时间：2017/7/28 14:11:00
--  回复：（有点甜）参考 http://www.foxtable....
我把这写到表事件·DataColChanged
Dim Val As Double = "需用天数"
Dim Lng As Long = Math.Ceiling(Val)
怎么不执行呢·

--  作者：jiangnanlove
--  发布时间：2017/7/28 15:05:00
--  zzzzz

If DrawGannt Then
Dim r As Row = Tables("表A").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.Datetable = "每天产能"
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
End If

此主题相关图片如下：4.jpg

怎么显示·每天产能列的数值呢·····
此主题相关图片如下：3.jpg

--  作者：有点甜
--  发布时间：2017/7/28 18:00:00
--

e.Datetable = r("每天产能")

--  作者：jiangnanlove
--  发布时间：2017/7/29 8:02:00
--  回复：（有点甜） e.Datetable = r("每天...
好像不行··不是成员····

此主题相关图片如下：b粘贴图片.png