foxtable同时生成多张图改如何做 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

多谢老师，我好好研究研究。

老师好，我研究了你的代码，做了相应的改动，如下。红色部分总是报错，说：未设置对象变量或 With 块变量。删除这句就不报错，这基本上拷贝你的代码，为什么报错，不明白？请您指点。多谢。

Dim tab1 As WinForm.TabControl

tab1 = e.Form.CreateControl("tab1", ControlTypeEnum.TabControl)

e.Form.Controls("Panel1").addcontrol(tab1)

tab1.Dock = System.Windows.Forms.DockStyle.fill

e.Form.Controls("tab1").basecontrol.ItemSize=new Size(60,25)

tab1.Multiline=True

Dim fnt As new Font("微软雅黑",10,FontStyle.Regular)

tab1.Font=fnt

Dim x As Integer

Dim str As String

Dim pan As WinForm.Panel

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

str=na

tab1.TabPages.Add(str,str)

pan = e.Form.CreateControl("pan" & na, ControlTypeEnum.panel)

pan.Dock = System.Windows.Forms.DockStyle.fill

pan.AutoScroll=True

pan.BackColor = color.Silver

e.Form.Controls("tab1").basecontrol.tabpages(str).addcontrol(pan)

Dim dt As DataTable

Dim cmd As new SQLCommand

cmd.CommandText="se lect 第四列,第五列,第六列,第七列,第八列,第九列 from{statis} where 第四列='" & na & "'"

dt=cmd.ExecuteReader

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

尊敬的版主，我研究了您的代码，做了相应的改动，但红色部分总是报错，能否给看看。多谢。

可是老师的源程序就这么写的运行没问题，怎么我就不行？那该怎么改？

tab1 = e.Form.CreateControl("tab1", ControlTypeEnum.TabControl) 这句不是生成了tab吗？

实际运行是若删除红色的那句，可以生成4个tab

谢谢您的回复，文件在附件。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:dtb.rar

再请问您一个问题，为什么程序运行后产生5个tab，第一个没有名字？谢谢。

谢谢老师，真高。

请问您是怎么调试找到此原因的？我觉得foxtable调试不方便，好像只能用output.show().还有其他更好的方式吗？

另外foxtable的对象的层级关系，我搞不清楚，帮助文件里好像也不十分详细，怎样找到这些详细的信息？请老师指点！

多谢，多谢。

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