求助：这个能够实现吗？用AL

alwaysbin

其实说起来很简单，当我选择左边的人的时候，右边就出现和他对应的信息。


但是我编了一天也没有编出来，还是请教一下高手。

alwaysbin

以下是我的程序，麻烦哪位老大帮我看看。


那个帮助里面写的很含糊，不懂。


只要能帮我把右边弄出国籍就行。谢谢。

alin

No codes uploaded

meflying

不明白要表达的意思，收入中为什么都是人的名字？难道赚的不是钱，是人？

tukuitk

我从我的程序中摘一部分出来，你看看能有所启发不：

2.   (setq  listb  '("0.35" "0.5" "0.7" "1" "1.4" "2" "2.8")
3.   listh  '("2.5" "3.5" "5" "7" "10" "14" "20")
4.   listd  '("0.25" "0.35" "0.5" "0.7" "1" "1.4" "2")
5.   listH1  '("3.5" "5" "7" "10" "14" "20" "28")
6.   listH2  '("8" "11" "15" "21" "30" "42" "60")
7.   listval  '("0.006"   "0.012"   "0.025"   "0.05"     "0.1"       "0.2"
8.        "0.4"       "0.8"       "1.6"       "3.2"       "6.3"       "12.5"
9.        "25"       "50"
10.      )
11.    )
12.    (addlist "b" listb)
13.    (addlist "h" listh)
14.    (addlist "d" listd)
15.    (addlist "H1" listH1)
16.    (addlist "H2" listH2)
17.    (addlist "val" listval)   (action_tile
18.        "b"
19.        "(setq index $value)
20.          (set_tile "h" index)
21.          (set_tile "d" index)
22.          (set_tile "H1" index)
23.          (set_tile "H2" index)"
24.    )
25.    (action_tile
26.        "h"
27.        "(setq index $value)
28.          (set_tile "b" index)
29.          (set_tile "d" index)
30.          (set_tile "H1" index)
31.          (set_tile "H2" index)"
32.    )  

  (setq  listb  '("0.35" "0.5" "0.7" "1" "1.4" "2" "2.8")   listh  '("2.5" "3.5" "5" "7" "10" "14" "20")   listd  '("0.25" "0.35" "0.5" "0.7" "1" "1.4" "2")   listH1  '("3.5" "5" "7" "10" "14" "20" "28")   listH2  '("8" "11" "15" "21" "30" "42" "60")   listval  '("0.006"   "0.012"   "0.025"   "0.05"     "0.1"       "0.2"        "0.4"       "0.8"       "1.6"       "3.2"       "6.3"       "12.5"        "25"       "50"      )    )    (addlist "b" listb)    (addlist "h" listh)    (addlist "d" listd)    (addlist "H1" listH1)    (addlist "H2" listH2)    (addlist "val" listval)   (action_tile        "b"        "(setq index $value)          (set_tile "h" index)          (set_tile "d" index)          (set_tile "H1" index)          (set_tile "H2" index)"    )    (action_tile        "h"        "(setq index $value)          (set_tile "b" index)          (set_tile "d" index)          (set_tile "H1" index)          (set_tile "H2" index)"    )  

alwaysbin

不知道为什么我的文件传不上来,只有等会看了.

meflying

你把内容复制上来就可以了

alwaysbin

对啊，我怎么没有想到。 ff.dcl ff : dialog {
:row{
/* :popup_list { */
:list_box{
label=/*MSG3*/"球员:";
key = "justone";
list="罗纳尔多\n费戈\n齐达内\n劳尔";
}
height=10;
: column {
:boxed_row{
label="国籍是：";
: paragraph {
: text_part {
label="nationality";
alignment = centered;
width = 10;
}
: text_part {
key="nation";
alignment = centered;
width = 10;
}
}
}}}
ok_only;
} lisp: (defun c:bbc ( )
(if (< (setq dcl_id (load_dialog "ff.dcl")) 0)
(exit)
)
(new_dialog "ff" dcl_id)
(start_dialog);
;;
(start_list "justone")
(setq index ( get_tile "justone"))
(cond
((/= index "")
(= index 1 (set_tile "nation" "巴西"))
(= index 2 (set_tile "nation" "葡萄牙"))
))
)

meflying

你的程序听乱的。。。 看看我改过的，注意对话框的调用顺序，及动作函数的使用，还有，LIST_BOX索引从0开始 (defun act_justone(index)
(cond
((= index 0) (set_tile "nation" "巴西"))
((= index 1) (set_tile "nation" "葡萄牙"))
)
)
(defun c:bbc ()
(if (< (setq dcl_id (load_dialog "ff.dcl")) 0)
(exit)
)
(new_dialog "ff" dcl_id)
(action_tile "justone" "(act_justone (atoi $value))")
(start_dialog)
(unload_dialog dcl_id) （princ)
)

citykunan

这是文本框和列表框的互动，找本介绍dcl的书，都有。