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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图表问题求助

共有1553人关注过本帖树形打印复制链接主题：[求助]图表问题求助

有点甜

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

加好友

发短信

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

Post By：2017/12/24 20:41:00 [显示全部帖子]

以下是引用堕落的后天在2017/12/24 15:05:00的发言：

2.一个表里面有多个记录，但是都隶属于同一个人（字段：所属医生），如何让他在图表里面，重叠绘制，而不是一条条绘制.

select查找此人的所有数据，然后把【开始时间】添加到一个集合，把【结束时间】添加到另一个即可，最后给甘特图赋值不就好了？

贴出你写的代码或者上传实例。

有点甜

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

加好友

发短信

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

Post By：2017/12/24 22:26:00 [显示全部帖子]

For Each xm As String In DataTables("预约表").GetValues("所属医生", filter)
    Dim xs As new List(Of Date)
    Dim ys As new List(Of Date)
    For Each drs As DataRow In DataTables("预约表").Select(filter & " and 所属医生 = '" & xm & "'")
        Dim x As Date = drs("开始时间")
        Dim y As Date = drs("结束时间")
        xs.add(x)
        ys.add(y)
    Next
    With Chart.SeriesList
        .AddGanttSeries(xm, xs.ToArray, ys.ToArray)
        .AddGanttLabels("h:m")
    End With
next

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

主题：[求助]图表问题求助