动态数据窗体如果设置背景颜色，字体大小！

[zlheadof]

动态数据窗体如果设置背景颜色，字体大小！
string error_syntaxfromSQL, error_create

string new_sql, new_syntax

new_sql = 'SELECT code,name from t_jbxx'

new_syntax = SQLCA.SyntaxFromSQL(new_sql, &
'Style(Type=grid)', error_syntaxfromSQL)

IF Len(error_syntaxfromSQL) > 0 THEN
// Display errors
messagebox(error_syntaxfromSQL,"a")
ELSE
// Generate new DataWindow
dw_index.Create(new_syntax, error_create)
IF Len(error_create) > 0 THEN
messagebox(error_create,"b")

END IF
END IF

dw_index.SetTransObject(SQLCA)
dw_index.Retrieve()

[byfq]

modify

[eastpond]

跟普通的数据窗口一样改吧

[workhand]

只要知道列名，用modify改普通数据窗口的用法一样的。

[zlheadof]

能说的明白点吗！谢谢！

[zlheadof]

我不是要改列名的，
我要改整个窗体的颜色，整个窗体的字体大小，怎么改

[zlheadof]

是改动态生成的数据窗体的里的字体大小，和颜色。

[canchuan]

我刚学PB 你们说的这些我听着就迷糊。

[zbg]

如果你的动态生成的数据窗口对象放在数据窗口dw_1中，可以这样实现
dw_1.object.datawindow.font.style='宋体'
dw_1.object.datawindow.font.height=12
dw_1.object.datawindow.backcolor=rgb(255,0,255)

[gyydreams]

你导出一个数据窗口，看看脚本，以葫芦画瓢，很简单的，呵呵

[zlheadof]

我是在open事件里直接写的，
没有在dw_1

[zlheadof]

DataWindow dw_1 //若采用数据窗口用户对象u_d_sample，则可改为：u_d_sample dw_1
dw_1=Create DataWindow //若采用数据窗口用户对象u_d_sample，此句应去除。
OpenUserObject(dw_1)

new_sql = 'SELECT code,gcdm from t_jbxx'

ls_type="Style(Type=grid) datawindow(color=15793151) column(border=0) text(font.face='宋体' font.height=-9 border=6 background.mode=2 background.color=80269524)"

new_syntax = SQLCA.SyntaxFromSQL(new_sql, &
ls_type, error_syntaxfromSQL)

IF Len(error_syntaxfromSQL) > 0 THEN
// Display errors
messagebox(error_syntaxfromSQL,"a")
ELSE
// Generate new DataWindow
dw_1.Create(new_syntax, error_create)
IF Len(error_create) > 0 THEN
messagebox(error_create,"b")
END IF
END IF
dw_1.X=500
dw_1.Y=500
dw_1.width=1500
dw_1.height=650
dw_1.Visible=True
dw_1.Enabled=True
dw_1.HScrollBar=True
dw_1.VScrollBar=True

dw_1.SetTransObject(SQLCA)
dw_1.Retrieve()

dw_index.SetTransObject(SQLCA)
dw_index.Retrieve()
这是我写的一段源码，您看怎么能改动态生成的数据窗体的里的字体大小，和颜色。谢谢

[zlheadof]

klt(苦乐天) 您可以发到我的信箱里一份，谢谢
[e-mail]

[犇犇]

我可以上传一个我扩展后的,对数据窗口设置的能用功能模块,谁知道如何上传上.