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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何绘图

共有6617人关注过本帖树形打印复制链接主题：如何绘图

有点蓝

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

加好友

发短信

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/2/14 22:04:00 [显示全部帖子]

图表没有这个功能，做不到

有点蓝

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

加好友

发短信

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/2/20 20:21:00 [显示全部帖子]

Dim dr As DataRow

For r As Integer = 0 To 3

Dim value As Integer

dr = DataTables("Configure").AddNew

dr("LineName") = "L" & r

value = 200+ r*100

Series.X(r) = value

dr("X") = value

value = 200+4050

Series.Y(r) = value

dr("Y") = value

Series.LineColor = Color.Black

Series.MarkShape = MarkShapeEnum.Circle

Series.MarkColor= Color.Red

有点蓝

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

加好友

发短信

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/2/21 8:35:00 [显示全部帖子]

用法一：

DataTables("B表").DeleteFor("") ‘无条件删除，只能删除已加载的数据，如果没有调用Save方法保存，可以使用RejectChanges撤销删除

DataTables("B表").SqlDeleteFor("") ‘无条件删除全部后台数据，不会刷新界面，并即刻生效，且不能撤销

用法二：

DataTables("B表").DataRows.Clear

Clear方法会直接从后台清除所有行，并即刻生效，且不能撤销，所以一定要慎重使用。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/2/24 8:29:00 [显示全部帖子]

Dim Chart As WinForm.Chart
Chart= Forms("ProjectPlan").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2017# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2017# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With CurrentTable
If .Current IsNot Nothing

    With Chart.SeriesList
        .AddGanttSeries(.Current("Task"),.Current("StartTime"),.Current("EndTime"))

    End With
End With