Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
DataTables("成绩表").SysStyles("Alternate")
表示成绩表交替行的样式。
系统样式包括:
Normal: 数据区
Frozen: 冻结区
Alternate: 交替行
EmptyArea:空白区
Fixed: 标题行
样式包括以下属性:
BackColor: 背景颜色
ForeColor: 字体颜色
FontBold: 逻辑型,设为True,字体加粗
FontItalic: 逻辑型,设为True,字体倾斜
FontStrikeout:逻辑型,设为True,字体带删除线
FontUnderline:逻辑型,设为True,字体带下划线
示例
希望将空白区的背景颜色设为白色:
DataTables(
"表A").SysStyles("EmptyArea").BackColor = Color.White
4、窗口增加StopRedraw和StopRedraw方法,分别用于暂停核恢复绘制窗口。Foxtable提供了动态增加和删除控件的功能,我们可以先执行StopRedraw方法,停止绘制窗口,等到动态增加或删除控件的代码执行结束后,再执行ResumeRedraw方法,重新绘制窗口,这样可以避免增加或控件空间的过程中,窗口不停地闪烁的问题:
例如单击某个按钮可动态加入一些控件,该按钮的代码通常应该设为:
e.Form.StopRedraw()
'动态增加或删除控件的代码
e.Form.ResumeRedraw()
示例
在窗口中加入一个按钮,按钮的Click时间代码设置为:
e.Form.StopRedraw() '停止绘制窗口
e.Form.RemoveControl("统计表1") '如果移除窗口中可能存在的同名Table
Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.TableVisible= False '注意这一行,可以避免主界面中出现生成的统计表
b.HGroups.AddDef("日期",DateGroupEnum.Year,"年")
b.HGroups.AddDef("日期","月")
b.VGroups.AddDef("客户","客户_{0}")
b.Totals.AddDef("数量")
b.OrderByTotal = True
b.Build()
Dim t As WinForm.Table
t = e.Form.CreateControl("统计表1", ControlTypeEnum.Table)
t.SetBounds(10,10,400,300)
e.Form.AddControl(t)
e.Form.ResumeRedraw() '重新绘制窗口
上面的代码能够直接在窗口中显示CrossTableBuilder生成的交叉统计表。
需要注意的是,即使你关闭窗口,上述代码生成的Table仍然存在的,你可以在命令窗口执行下面的代码,使得这个Table可见:
Tables(
"统计表1").Visible = True下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:动态插入table.table |
狂顶!
哈哈,同样可以隐藏和显示任何表,我刚发现,不知原来是否有:Tables("表A").Visible = True或false
顶
用OuterTableBuilder生成的表,可以编辑。