主题：[求助]动态的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

参考：

 

http://www.foxtable.com/help/topics/2628.htm

 

已经设置了

For Each dt As DataTable In DataTables
    dt.GlobalHandler.DrawCell= True
Next

还是没有效果

看三楼

我已经加过这个代码了

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

明白了，太感谢了

“狐狸爸爸”还有一个锚定的怎么做呢？

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