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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表事件

共有5348人关注过本帖树形打印复制链接主题：表事件

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/4/23 17:33:00 [只看该作者]

此主题相关图片如下：日历异常2.png

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/4/23 17:39:00 [只看该作者]

此主题相关图片如下：日历异常3.png

此主题相关图片如下：日历异常5.png

此主题相关图片如下：日历异常6.png

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/23 20:32:00 [只看该作者]

以下是引用cglsg5076在2017/4/23 17:27:00的发言：
老师，我已经升级到最新版了，总是在某月的最后一天出现。

1、你使用的是试用版？

2、具体做个实例发上来看看。

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/4/23 22:18:00 [只看该作者]

是开发版，刚升级到4月22日

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/23 22:44:00 [只看该作者]

嗯嗯，是有点问题，如果你需要获取日期，可以这样写

dim wholedate As Date

wholedate=e.Form.Controls("Calendar1").value.date

messagebox.show(wholedate)

cglsg5076

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

加好友

发短信

等级：五尾狐帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/4/23 22:57:00 [只看该作者]

老师好，我想用下面的代码画出散点图，可是画出的带有连线，请问要去掉连线，如何更改代码？谢谢！

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 10 '新增图系包括10个数据点
For i As integer = 0 to 9 '指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Series.Y(i) = i + Rand.Next(5) '垂直坐标用随机数生成
Next

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/24 8:54:00 [只看该作者]

参考

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bubble
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 10 '图系包括10个数据点
Series.MarkShape= MarkShapeEnum.Dot '指定数据标记为圆点.
Series.MarkColor = Color.Red '指定数据标记的颜色
Series.LinePattern = LinePatternEnum.None '不显示数据点之间的联线
For i As Integer = 0 To 9 '指定每个数据点的位置
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = i + Rand.Next(5) '垂直坐标用随机数生成
    Series.Y1(i) = 1 '泡的大小用随机数生成
Next

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