本帖最后由 作者 于 2005-10-9 17:06:45 编辑
(defun info-manage();资料管理 (setq dcl_manage(load_dialog"yy.dcl")) (new_dialog"info_manage"dcl_manage"" '(246 298)) (action_tile "accept" "(get-new-kehu)(done_dialog 1)") (setq dia(start_dialog)) (if(= dia 1) (if(/=""new-ke-hu) (progn
;(start_list "ke-hu") 无奈...我只好把这几句杀除了 ;(mapcar 'add_list kehu-list) 程序结果运行就如一楼的演示 ;(end_list) ;更新 DCL中 kehu-list (SETQ ke-hu new-ke-hu) ) ) ) (unload_dialog dcl_manage) )
???各位大侠可否给我编一个示范程序 使得新增客户后 新的客户名会立即显示在客户下拉列表中 只要能说明问题就好 谢谢!!! |