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 '定义一个图系变量
加好友 
发短信
Post By：2015/4/7 21:47:00 [只看该作者]
