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


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

主题:如何绘图

帅哥哟,离线,有人找我吗?
cglsg5076
  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/2/25 10:55:00 [只看该作者]

1、http://www.foxtable.com/webhelp/scr/2890.htm

 

2、放到页眉就比较麻烦,要使用vba编程


 回到顶部
帅哥哟,离线,有人找我吗?
cglsg5076
  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1006 积分:6422 威望: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
  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1006 积分:6422 威望: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/26 15:47: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
    Dim nr As Row = Tables("TimingDiary").AddNew
    nr("Category")=dr("OperationDetail")
    nr("Code")=dr("TimingCode")
    nr("Start")=dr("TimingStarttime")
    nr("End")=dr("TimingEndtime")
    nr("Duration")=dr("TimingDuration")
    nr("Block")=dr("Block")
Next

 回到顶部
帅哥哟,离线,有人找我吗?
cglsg5076
  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请问老师,我用免费版的foxtable设计Excel没问题,但是用开发版的设计Excel却总是失败,预览看不到数据,这是为什么? 用开发版设计World报表目前还行,
没发现问题,可以生成报表。

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用cglsg5076在2017/2/26 18:31:00的发言:
请问老师,我用免费版的foxtable设计Excel没问题,但是用开发版的设计Excel却总是失败,预览看不到数据,这是为什么? 用开发版设计World报表目前还行,
没发现问题,可以生成报表。

 

预览看不到数据,说明你模板有问题。先测试foxtable自带的例子的excel报表是否正常。


 回到顶部
帅哥哟,离线,有人找我吗?
cglsg5076
  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1006 积分:6422 威望: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 & "'")


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/1 8:41:00 [只看该作者]

selectednodename的值是不是会有单引号等特殊符号?

 回到顶部
帅哥哟,离线,有人找我吗?
cglsg5076
  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
总数 65 上一页 1 2 3 4 5 6 7 下一页