求助hiCreateComboField callback

YuSHL

请教大佬，为什么下面的代码callback功能可以实现，但是在OK Apply cancel 的 时候不能关掉窗口

                               
登录/注册后可看大图

   

        

            
1. procedure(testSelectCV()
   
2. let((lib cell view)
   
3.     lib = hiCreateComboField(
   
4.         ?name 'lib
   
5.         ?prompt "lib"
   
6.         ?items ddGetLibList()~>name
   
7.         ?callback "testSelectCV_SelCB(hiGetCurrentForm() "lib")"
   
8.     )
   
9.     cell = hiCreateComboField(
   
10.         ?name 'cell
    
11.         ?prompt "cell"
    
12.         ?callback "testSelectCV_SelCB(hiGetCurrentForm() "cell")"
    
13.     )
    
14.     view = hiCreateComboField(
    
15.         ?name 'view
    
16.         ?prompt "view"
    
17.         ?callback ""
    
18.     )
    
19.     testSelectForm = hiCreateAppForm(
    
20.         ?name 'testSelectForm
    
21.         ?formTitle "testSelectForm"
    
22.         ?fields list(
    
23.             1ist(lib 10:10 200:30 60)
    
24.             1ist(cell 10:50 200:30 60)
    
25.             1ist(view 10:90 200:30 60)
    
26.         );end fields
    
27.     );end create app form
    
28.     hiDisplayForm('testSelectForm)
    
29.     t);end let
    
30. );end proc
    
31. 
    
32. procedure(testSelectCV_SelCB(form \@optional field("lib"))
    
33. let((cells currentCell views currentView)
    
34.     cond(
    
35.         (field == "lib"                ;;Control cell field
    
36.             currentCell = form->cell->value
    
37.             unless(currentCell
    
38.                 cells = ddGetObj(form->lib->value)->cells~>name
    
39.                 form->cell->items = cells
    
40.                 form->cell->value = car(cells)
    
41.             );end unless
    
42.             when(currentCell
    
43.                 cells = ddGetObj(form->lib->value)->cells~>name
    
44.                 form->cell->items = cells
    
45.                 unless(member(currentCell cells)
    
46.                     form->cell->value = car(cells)
    
47.                 );end unless
    
48.             );end when
    
49.         )
    
50.         (field == "cell"        ;;Control view field
    
51.             currentView = form->view->value
    
52.             unless(currentView
    
53.                 views = ddGetObj(form->lib->value form->cell->value)->views~>name
    
54.                 form->view->items = views
    
55.                 form->view->value = car(views)
    
56.             );end unless
    
57.             when(currentView
    
58.                 views = ddGetObj(form->lib->value form->cell->value)->views~>name
    
59.                 form->view->items = views
    
60.                 unless(member(currentView views)
    
61.                     form->view->value = car(views)
    
62.                 );end unless
    
63.             );end when
    
64.         )
    
65.     );end cond
    
66.     t
    
67.     );end let
    
68. );end proc
            

   

    复制代码

着着着火了

虽然没看完，但string里面加双引号你不加反斜杠\吗

YuSHL

   

着着着火了 发表于 2024-5-29 11:31
虽然没看完，但string里面加双引号你不加反斜杠\吗

这个是我弄出来没加上的问题，我测试的是加上的

YuSHL

我copy过来是加上的

procedure(testSelectCV()
let((lib cell view)
    lib = hiCreateComboField(
        ?name 'lib
        ?prompt "lib"
        ?items ddGetLibList()~>name
        ?callback "testSelectCV_SelCB(hiGetCurrentForm() \"lib\")"
    )
    cell = hiCreateComboField(
        ?name 'cell
        ?prompt "cell"
        ?callback "testSelectCV_SelCB(hiGetCurrentForm() \"cell\")"
    )
    view = hiCreateComboField(
        ?name 'view
        ?prompt "view"
        ?callback ""
    )
    testSelectForm = hiCreateAppForm(
        ?name 'testSelectForm
        ?formTitle "testSelectForm"
        ?fields list(
            list(lib 10:10 200:30 60)
            list(cell 10:50 200:30 60)
            list(view 10:90 200:30 60)
        );end fields
    );end create app form
    hiDisplayForm('testSelectForm)
    t);end let
);end proc

procedure(testSelectCV_SelCB(form \@optional field("lib"))
let((cells currentCell views currentView)
    cond(
        (field == "lib"                ;;Control cell field
            currentCell = form->cell->value
            unless(currentCell
                cells = ddGetObj(form->lib->value)->cells~>name
                form->cell->items = cells
                form->cell->value = car(cells)
            );end unless
            when(currentCell
                cells = ddGetObj(form->lib->value)->cells~>name
                form->cell->items = cells
                unless(member(currentCell cells)
                    form->cell->value = car(cells)
                );end unless
            );end when
        )
        (field == "cell"        ;;Control view field
            currentView = form->view->value
            unless(currentView
                views = ddGetObj(form->lib->value form->cell->value)->views~>name
                form->view->items = views
                form->view->value = car(views)
            );end unless
            when(currentView
                views = ddGetObj(form->lib->value form->cell->value)->views~>name
                form->view->items = views
                unless(member(currentView views)
                    form->view->value = car(views)
                );end unless
            );end when
        )
    );end cond
    t
    );end let
);end proc

YuSHL

   

着着着火了 发表于 2024-5-29 11:31
虽然没看完，但string里面加双引号你不加反斜杠\吗

用代码块的方式上传到这就没了

着着着火了

   

YuSHL 发表于 2024-5-29 13:09
用代码块的方式上传到这就没了

apply本来就不能关闭，测试下来点OK和cancel都能关闭

YuSHL

   

着着着火了 发表于 2024-5-29 15:32
apply本来就不能关闭，测试下来点OK和cancel都能关闭

选择之后lib cell view之后能关掉吗？

着着着火了

   

YuSHL 发表于 2024-5-29 15:44
选择之后lib cell view之后能关掉吗？

能

YuSHL

   

着着着火了 发表于 2024-5-29 16:37
能

是直接用我贴上的代码吗？为什么我这边会报上面图中的error

着着着火了

   

YuSHL 发表于 2024-5-29 17:20
是直接用我贴上的代码吗？为什么我这边会报上面图中的error

是用你上面的代码，没改。

我测试的时候报错只会发生在选了lib之后，然后点cancel，这时候触发field的callback（按理来说不会有动作才对），因为你的代码写的是ddGetObj(form->lib->value)，这时候form已经被关闭了，所以form为nil，这一串都为nil，所以就出现了ddGetObj(nil）这个问题，也就是报出来的error