请教

[liujiaqiang]

如何从DATAWINDOW某一BAND找出所有的OBJ_TYPE类型的所有对象,将结果存放到 OBJ_LIST[]中

[runsoft]

string obj_string, obj_holder
int obj_count, start_pos=1, tab_pos, count = 0

obj_string = dw_arg.Describe("datawindow.objects")

tab_pos = Pos(obj_string,"~t",start_pos)
DO WHILE tab_pos > 0
obj_holder = Mid(obj_string,start_pos,(tab_pos - start_pos))
IF (dw_arg.Describe(obj_holder+".type") = obj_type or obj_type = "*") AND &
(dw_arg.Describe(obj_holder+".band") = band or band = "*") THEN
count = count + 1
obj_list[count] = obj_holder
// messagebox("object",obj_list[count])
END IF
start_pos = tab_pos + 1
tab_pos = Pos(obj_string,"~t",start_pos)
LOOP
obj_holder = Mid(obj_string,start_pos,Len(obj_string))
IF (dw_arg.Describe(obj_holder+".type") = obj_type or obj_type = "*") AND &
(dw_arg.Describe(obj_holder+".band") = band or band = "*") THEN
count = count + 1
obj_list[count] = obj_holder
// messagebox("object",obj_list[count])
END IF

Return count

[klbt]

赞成楼上意见。

dw_arg.Describe("datawindow.objects")是dw_arg的所有对象名大全，用~t分隔。

要根据对象的类型、对象所在的band循环判断，逐个加入到数组中。