Foxtable(狐表)用户栏目专家坐堂 → foxtable同时生成多张图改如何做


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

主题:foxtable同时生成多张图改如何做

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/13 18:44:00 [显示全部帖子]

以下是引用cglsg5076在2015/4/13 16:01:00的发言:
老师好,我将下面的代码放到菜单里,结果提示:Form 不是 RibbonButtonEventArgs的成员,红色代码报错。
请问该如何改动。
谢谢老师。

Dim tab1 As WinForm.TabControl
Dim ri As Integer
ri=0
tab1 = e.Form.CreateControl("tab1",ControlTypeEnum.TabControl)
e.Form.Controls("Panel1").addcontrol(tab1)
tab1.Dock = System.Windows.Forms.DockStyle.fill




//如果放到菜单里 是不能用窗口的e参数的 是哪个窗口就要写明是哪个窗口


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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/13 18:51:00 [显示全部帖子]

以下是引用cglsg5076在2015/4/11 17:00:00的发言:

老师好,我研究了帮助里的图表生成代码,其横坐标数值是红色部分,和我要求的不同。

For r As Integer = 0 To t.Rows.Count - 1

            Series.X(r) = r
            Series.Y(r) = t.Rows(r)(c.Name)





我的要求是将第二列给定为横坐标,第三列,第四列,第五列,第六列为纵坐标,按照帮助文件无法生成。下面的代码红色部分不通过,请问该如何写?

谢谢。


For Each na As String In DataTables("statis").GetValues("第一列")

Dim dt As DataTable

    Dim cmd As new SQLCommand

    cmd.CommandText="se lect 第二列,第三列,第四列,第五列,第六列 from{statis} where 第一列='" & na & "'"

    dt=cmd.ExecuteReader   

For Each c As DataCol In dt.DataCols

        If c.Name <> "第二列" Then

       Series = Chart.SeriesList.Add() '增加一个图系

       Series.Text = c.Name '设置图系的标题

       Series.Length = t.Rows.Count '设置图系的长度

      For r As Integer =0 To t.Rows.Count-1 '指定每个数据点的位置

 

                     Series.X(r) =val(t.cols(r+1))

                     Series.Y(r) = val(t.Rows(r)(c.Name))

    Next

    End If

    Next


套用代码的时候要看看自己的数据是否能对应 


 回到顶部
总数 13 上一页 1 2