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


  共有5714人关注过本帖树形打印复制链接

主题：如何绘图
帅哥，在线噢！
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105943 积分：538784 威望：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
Next
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/20 23:20:00 [只看该作者]

谢谢老师。

请问老师，如何一次清除所有表里的数据或者一次性删除所有行。用delete方法只能清除选中的行。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105943 积分：538784 威望：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方法会直接从后台清除所有行，并即刻生效，且不能撤销，所以一定要慎重使用。
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/21 10:45:00 [只看该作者]

谢谢老师
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/23 11:49:00 [只看该作者]

老师好，我用日历按日期选取记录，但是有时又需要全部列出所有的记录，我该用如何写程序？

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/23 12:18:00 [只看该作者]

以下是引用cglsg5076在2017/2/23 11:49:00的发言：
老师好，我用日历按日期选取记录，但是有时又需要全部列出所有的记录，我该用如何写程序？

 

为空的时候，筛选全部呗。TextChanted事件

 

If e.Sender.Text > "" Then

    Tables("表A").Filter = "日期 = #" & e.Sender.Text & "#"

Else

    Tables("表A").Filter = ""

End If
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/23 17:31:00 [只看该作者]

谢谢老师指点。
我的开发版foxtable提示“此表不支持插入行功能”，这是怎么回事？免费版都支持插入行功能，请问老师如何解决？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/23 17:57:00 [只看该作者]

以下是引用cglsg5076在2017/2/23 17:31:00的发言：
谢谢老师指点。
我的开发版foxtable提示“此表不支持插入行功能”，这是怎么回事？免费版都支持插入行功能，请问老师如何解决？谢谢！

 

参考 http://www.foxtable.com/webhelp/scr/1791.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1008 积分：6456 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/23 21:54:00 [只看该作者]

老师好，对于甘特图，我有task、StartTime、EndTime三列数据，我想根据表里的数据生成甘特图，请问下面的代码如何改？

dim dr as datarow
With Chart.SeriesList
    .AddGanttSeries(dr("Task"),#dr("StartTime")#,#dr("EndTime")#)
    
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/24 1:07:00 [只看该作者]

Dim dr As DataRow
With Chart.SeriesList
    .AddGanttSeries(dr("Task"), dr("StartTime"), dr("EndTime"))
End With
 回到顶部
总数 65 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询