数据窗口grid问题

[lyf123]

本人创建了一数据窗口是grid/external型，然后创建一窗口，插入数据窗口控件并指向数据窗口。
想实现在gird中的cell中动态插入string 和 user_object
如何编码？

[Hanson_bati_zhu]

"在gird中的cell中动态插入string 和 user_object"
不会
8-（

帮你UP

[swordmanli]

up

[killerdanny]

Integer nColumnCount, nColumnIndex
String szColumn
Long lRow
DataWindowChild dwcColumns


dw_1.settransobject(sqlca)
dw_criteria.settransobject(sqlca)
//i_dwToActOn = Message.PowerObjectParm
i_dwToActOn =dw_1
i_lRow = 0

nColumnCount = Integer( i_dwToActOn.Object.DataWindow.Column.Count)

dw_criteria.GetChild( "column_number", dwcColumns)

i_aszTypes[ nColumnCount] = ""

For nColumnIndex = 1 To nColumnCount
szColumn = f_strip( i_dwToActOn.Describe( i_dwToActOn.Describe( "#" + String(nColumnIndex) + ".Name") + "_t.Text"))
If szColumn <> "!" Then
lRow = dwcColumns.InsertRow( 0)
dwcColumns.SetItem( lRow, "column_name", szColumn)
dwcColumns.SetItem( lRow, "column_number", nColumnIndex)
i_aszTypes[ nColumnIndex] = i_dwToActOn.Describe( "#" + String(nColumnIndex) + ".ColType")
End If
Next
//取DW_1中的字段插入dw_criteria，dw_criteria是grid/external

[killerdanny]

fuction f_strip（string a_szArg） return string
Integer nLength, nPos

nLength = Len( a_szArg)

For nPos = 1 To nLength
Choose Case Mid( a_szArg, nPos, 1)
Case "~t", "~r", "~n", '"'
a_szArg = Replace( a_szArg, nPos, 1, " ")
End Choose
Next

Return Trim( a_szArg)

[紫焰月读]

如同普通的GRID一样，
不过数据窗口中似乎不能插入userobject

[saminer]

up

[树木]

关注

[killerdanny]

uo 不可能