[求助]：ObjectDCL编写报表控件的问题？

zhoujun518

我编了如下一个报表的对话框，但是无法实现几个地方
1。关闭对话框时无法得到每个文本框中的数据列表，在写入时可以，但读取时提示控件不存在。
2。我参照DEMO设置了一个关闭对话框的按钮（左上角），但关不掉对话框。
希望大家提供帮助

另外：ODCL中没有ListCtrl控件，否则会简单多了。哪位用出来过？

zhoujun518

以下是源代码：

2. [font=courier new]
   
3. (defun c:PD ()
   
4.   (ObjectDCL_LoadArx)
   
5.                                         ;  (C:get_data)
   
6.   (Odcl_LoadProject "PortalDCL" T)
   
7.   (Odcl_Form_Show Portal_DclForm1)
   
8. )
   
9. 
   
10. 
    
11. (defun c:DclForm1_Initialize (/ n)
    
12.   (Odcl_Form_SetTitleBarText portal_DclForm1 "梁元参数设计")
    
13.   (setq n 1)
    
14.   (foreach EachText '("1"          "900-1200X6"                  "200X8"
    
15.                       "200X10"          "140X16"    "2M20"          "3M20"
    
16.                       "8000"
    
17.                      )
    
18.     (progn (Odcl_Control_SetProperty
    
19.              "PortalDCL"
    
20.              "DclForm1"
    
21.              (strcat "TextBox" (itoa n))
    
22.              "Text"
    
23.              eachtext
    
24.            )
    
25.            (setq n (1+ n))
    
26.     )
    
27.   )
    
28. )
    
29. 
    
30. (defun c:DclForm1_Close        (nUpperLeftX nUpperLeftY / n)
    
31.   (setq        n 1
    
32.         everytext nil
    
33.   )
    
34.   (while (<= n 8)
    
35.     (setq everytext (cons everytext
    
36.                           (Odcl_Control_GetProperty
    
37.                             "PortalDCL"
    
38.                             "DclForm1"
    
39.                             (strcat "TextBox" (itoa n))
    
40.                             "Text"
    
41.                           )
    
42.                     )
    
43.           n            (1+ n)
    
44.     )
    
45.   )
    
46.   (print everytext)
    
47. )
    
48. 
    
49. 
    
50. (defun c:DclForm1_TextButton0_OnClicked        ()
    
51.   (Odcl_Form_Close "PortalDCL" "DclForm1")
    
52. )
    
53. 
    
54. [/font]

[font=courier new]<br /> (defun c:PD ()<br />   (ObjectDCL_LoadArx)<br />                                         ;  (C:get_data)<br />   (Odcl_LoadProject "PortalDCL" T)<br />   (Odcl_Form_Show Portal_DclForm1)<br /> )<br /> <br /> <br /> (defun c:DclForm1_Initialize (/ n)<br />   (Odcl_Form_SetTitleBarText portal_DclForm1 "梁元参数设计")<br />   (setq n 1)<br />   (foreach EachText '("1"          "900-1200X6"                  "200X8"<br />                       "200X10"          "140X16"    "2M20"          "3M20"<br />                       "8000"<br />                      )<br />     (progn (Odcl_Control_SetProperty<br />              "PortalDCL"<br />              "DclForm1"<br />              (strcat "TextBox" (itoa n))<br />              "Text"<br />              eachtext<br />            )<br />            (setq n (1+ n))<br />     )<br />   )<br /> )<br /> <br /> (defun c:DclForm1_Close        (nUpperLeftX nUpperLeftY / n)<br />   (setq        n 1<br />         everytext nil<br />   )<br />   (while (<= n 8)<br />     (setq everytext (cons everytext<br />                           (Odcl_Control_GetProperty<br />                             "PortalDCL"<br />                             "DclForm1"<br />                             (strcat "TextBox" (itoa n))<br />                             "Text"<br />                           )<br />                     )<br />           n            (1+ n)<br />     )<br />   )<br />   (print everytext)<br /> )<br /> <br /> <br /> (defun c:DclForm1_TextButton0_OnClicked        ()<br />   (Odcl_Form_Close "PortalDCL" "DclForm1")<br /> )<br /> <br /> [/font]

完整代码见附件

lhtfh

请问斑竹是不是任意编写一个dcl和程序加截图上传过来就可以积分...?

darkblue

又是老贴子被我翻出来了，呵呵。请问，用DCL能实现楼主的功能吗？我也想用这个功能，并且对每一行还要能进行编辑。此外，ODCL我还不太明白，能否介绍一二。

llbbgg1968

我们这些菜鸟看不明白，我们还要很学习才行，没有引路人很难的。

spshchen

真好 终于看到 讨论ODCL的文章了,不过现在我用了一下,感觉还好 但是 没有找到技巧,只是对着例子在依样画葫芦.