Foxtable(狐表)用户栏目专家坐堂 → 制作图表求助


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

主题:制作图表求助

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/5 14:20:00 [显示全部帖子]

Dim r As DataRow = DataTables("chart_opti").Find("[Freightmethod]= '" & chart_series  & "' And  [chargeWT] = " & Chart_wt)

字符串要用单引号引起来

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/5 16:21:00 [显示全部帖子]

道理同3楼,别人不知道你的列是什么类型的,自己学会判断

And [chargeWT] = '" & Chart_wt & "'")

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/5 16:54:00 [显示全部帖子]

数字列不应该出这个错误

1、如果是统计表,未必是数字列

2、Freightmethod的内容会不会有单引号

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/5 17:01:00 [显示全部帖子]

上例子测试

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/5 17:31:00 [显示全部帖子]

列内容有单引号啊,7楼问是不是有,也不回答!!

Dim r As DataRow = DataTables("表A").Find("Freightmethod = '" & chart_series.Replace("'","''")  & "' And chargeWT = " & a)'找出对应年月的行

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/7 8:38:00 [显示全部帖子]

这个应该是帮助的问题,

改为Series.Length = 13 

或者下面这种方式
......

series.MarkSize=3
    For a As Double = 1 To 12 Step 1 

        Series.X(a-1) = a      

        Dim r As DataRow = DataTables("chart_opti").Find("Freightmethod = '" & chart_series  & "' And chargeWT = " & a)
        If r IsNot Nothing Then 
            Series.Y(a-1) = r("cost") 

        End If
    Next
Next


 回到顶部