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


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

主题：如何绘图
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/24 17:15:00 [显示全部帖子]

帮助里看不到，在哪里找到这些选项说明？

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


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/24 22:01:00 [显示全部帖子]


老师好，我想用下面的代码找到StartTime列的最小值和EndTime列的最大值，请问如何改？谢谢。
Dim rr As Row=Tables("Plan").Rows
    Chart.AxisX.MinDate=rr("StartTime").min
    Chart.AxisX.MaxDate =Tables("Plan").rr("EndTime").max         
    messagebox.show(Chart.AxisX.MinDate)
    messagebox.show(Chart.AxisX.MaxDate)
'
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/24 22:27:00 [显示全部帖子]

谢谢老师，感觉foxtable是很强大，但太灵活，不好掌握。需要时间理解掌握。多谢老师，给您添麻烦了。

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


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/25 10:15:00 [显示全部帖子]

请问老师，在word报表里，我要在word文档里的页眉的左右两侧插入两个小图片，请问怎么做，帮助里没看到这样的信息。谢谢

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


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/25 10:17:00 [显示全部帖子]

我的数据表里有这两个图片，数据表Company的picture列里存放。

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


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/25 22:31:00 [显示全部帖子]

老师好，我需要根据选取的日历的日期将表Timig的OperationDetail列、TimingStarttime列、TimingEndtime列、TimingDuration列、Comment列和TimingCode列数据

分别放在表TimingDiary的Category列、Start列、End列、Duration列、Comment列、Code列。

 

我的思路是定义集合，选取数据，然后转存数据，您看下面的代码如何改？

Dim drs As List(Of DataRow)
drs = DataTables("Timig").Select("[产品] = 'PD01' And [日期]= #1/4/1999#")

Tables("Timing").Filter ="TimingStarttime >= #" & e.Sender.Value & "# and TimingStarttime < #" & e.Sender.Value.AddDays(1) & "#" 
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/26 10:34:00 [显示全部帖子]

老师好，下面我写的代码如何更改。谢谢。
Dim drs As List(Of DataRow)
drs = DataTables("Timig").Select("TimingStarttime >= #" & e.Sender.Value & "# and TimingStarttime < #" & e.Sender.Value.AddDays(1) & "#" )

For Each dr As DataRow In drs
   
   Tables("TimingDiary").Cols("Category")=dr("OperationDetail")
   Tables("TimingDiary").Cols("Code")=dr("TimingCode")
   Tables("TimingDiary").Cols("Start")=dr("TimingStarttime")
   Tables("TimingDiary").Cols("End")=dr("TimingEndtime")
   Tables("TimingDiary").Cols("Duration")=dr("TimingDuration")
   Tables("TimingDiary").Cols("Block")=dr("Block")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/2/26 18:31:00 [显示全部帖子]

请问老师，我用免费版的foxtable设计Excel没问题，但是用开发版的设计Excel却总是失败，预览看不到数据，这是为什么？ 用开发版设计World报表目前还行，
没发现问题，可以生成报表。
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/1 3:30:00 [显示全部帖子]


老师好，我想用下面的代码找表ConfigStreamer的ProjctName的行，但是红色部分总是提示：列“0”不属于表 ConfigStreamer，请问怎么改程序。

Dim drr2 As DataRow 

messagebox.show(selectednodename) ’这句是通的，也就是说执行到这里是没错的（selectednodename是所选的ProjctName，不是0，比如我选的Numbat3D）

drr2 =DataTables("ConfigStreamer").Find("[ProjectName]='" & selectednodename & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/1 8:58:00 [显示全部帖子]

没有，我把他直接换成Numbat3D，也是那个提示

 回到顶部
总数 40 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询