개발 참고자료

PowerObject pb_control[]
DataWindow ldw_dw
Integer li_i, li_max


pb_control = This.control
li_max = UpperBound(pb_control)
For li_i = 1 to li_max
If DataWindow! = TypeOf(pb_control[li_i]) Then
ldw_dw = pb_control[li_i]
ldw_dw.SetTransObject(SQLCA)
End IF
Next








/*컨트로 이름에 visible_true 이라는 단어가 있으면 무조건 보여준다. */


Long m, n, p




String ls_ctlNm


PowerObject pb_control[]


DataWindow ldw_dw


windowobject the_object[]






pb_control[] = This.control[]


p = UpperBound(pb_control[])


For m = 1 to p


the_object[m] = control[m]


ls_ctlNm = the_object[m].ClassName()


if pos(ls_ctlNm, 'visible_true') >= 1 then


the_object[m].show()


end if




if pos(ls_ctlNm, 'visible_false') >= 1 then


the_object[m].Hide()


end if


Next




PS,. 잘고치면 여러가지 할수 있습니다.
ldw_dw.Modify("DataWindow.Retrieve.AsNeeded=Yes")
이런것도 할수 있지요