以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态的SQLTable如何加DrawCell和锚定？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29971)
--  作者：mxko
--  发布时间：2013/3/18 12:12:00
--  [求助]动态的SQLTable如何加DrawCell和锚定？

如题：已经在窗体的AfterLoad事件中加了下面代码：

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)

在项目的全局DrawCell事件 中加上下面代码：

Select Case e.Table.Name

    Case "窗口1_test1"

            If e.Row.Locked = True Then
                 e.Style = "a"
            Else
                 e.Style = ""
              End If

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
    dt.GlobalHandler.DrawCell= True
Next

还是没有效果
--  作者：狐狸爸爸
--  发布时间：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 = e.Form.CreateSQLTable("gform", "Select top 10 Formid as \'编号\',Formname as \'名称\' From test1","test")
tbl.SetBounds(2, 46, 886, 530)
e.Form.AddControl(tbl)

tbl.Dock = 5
--  作者：mxko
--  发布时间：2013/3/18 15:00:00
--  

狐狸爸爸

tbl.Dock = 5

可以说明一下这个吗

我在帮助中没有找到

还是就是 = 5时就全窗口了，可不可以就按

tbl.SetBounds(2, 46, 886, 530)
这个来设置锚定