以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]动态的SQLTable如何加DrawCell和锚定? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29971) |
-- 作者:mxko -- 发布时间:2013/3/18 12:12:00 -- [求助]动态的SQLTable如何加DrawCell和锚定? 如题:已经在窗体的AfterLoad事件中加了下面代码: Dim tbl As WinForm.Table DataTables("窗口1_test1").AddUserStyle("a", Color.Red, Color.White) 在项目的全局DrawCell事件 中加上下面代码: Select Case e.Table.Name Case "窗口1_test1" If e.Row.Locked = True Then End Select 用上面方法没有效果 请教如何加上DrawCell和锚定效果 DrawCell |
-- 作者:狐狸爸爸 -- 发布时间:2013/3/18 14:04:00 -- 参考:
http://www.foxtable.com/help/topics/2628.htm
|
-- 作者:mxko -- 发布时间:2013/3/18 14:30:00 -- 已经设置了 For
Each dt As
DataTable
In
DataTables 还是没有效果 |
-- 作者:狐狸爸爸 -- 发布时间:2013/3/18 14:31:00 -- 看三楼 |
-- 作者:mxko -- 发布时间:2013/3/18 14:35:00 -- 我已经加过这个代码了 |
-- 作者:狐狸爸爸 -- 发布时间:2013/3/18 14:42:00 -- Dim tbl As WinForm.Table tbl = e.Form.CreateSQLTable("gform", "Select top 10 Formid as \'编号\',Formname as \'名称\' From test1","test") tbl.SetBounds(2, 46, 886, 530) e.Form.AddControl(tbl) Tables("窗口1_test1").SetColVisibleWidth("编号\'|90|名称|200") DataTables("窗口1_test1").AddUserStyle("a", Color.Red, Color.White) 改为: Dim tbl As WinForm.Table tbl = e.Form.CreateSQLTable("gform", "Select top 10 Formid as \'编号\',Formname as \'名称\' From test1","test") tbl.SetBounds(2, 46, 886, 530) e.Form.AddControl(tbl) Tables("窗口1_test1").SetColVisibleWidth("编号\'|90|名称|200") DataTables("窗口1_test1").AddUserStyle("a", Color.Red, Color.White) DataTables("窗口1_test1").GlobalHandler.DrawCell= True |
-- 作者:mxko -- 发布时间:2013/3/18 14:46:00 -- 明白了,太感谢了 |
-- 作者:mxko -- 发布时间:2013/3/18 14:48:00 -- “狐狸爸爸”还有一个锚定的怎么做呢? |
-- 作者:狐狸爸爸 -- 发布时间:2013/3/18 14:52:00 -- Dim tbl As WinForm.Table tbl.Dock = 5 |
-- 作者:mxko -- 发布时间:2013/3/18 15:00:00 -- 狐狸爸爸 tbl.Dock = 5 可以说明一下这个吗 我在帮助中没有找到 还是就是 = 5时就全窗口了,可不可以就按 tbl.SetBounds(2, 46, 886, 530) |