以文本方式查看主题

-  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
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)
这个来设置锚定