(XD::Table:Begin)为TABLE操初始化，禁止表格数据更新

Lispboy

1. (defun XD::Table:Begin (tb / typ)
   
2.   (if (not (xd::symbol:get '#xd-var-global-table-cellVertMargin))
   
3.     (xd::symobl:put '#xd-var-global-table-cellVertMargin 1)
   
4.   )
   
5.   (if (not (xd::symbol:get '#xd-var-global-table-textstyle))
   
6.     (xd::symbol:put '#xd-var-global-table-textstyle "standard")
   
7.   )
   
8.   (if (not (xd::symbol:get '#xd-var-global-table-textheight))
   
9.     (xd::symbol:put '#xd-var-global-table-textheight 3.5)
   
10.   )
    
11.   (if (not (xd::symbol:get '#xd-var-global-table-textwidthfactor))
    
12.     (xd::symbol:put '#xd-var-global-table-textwidthfactor 0.8)
    
13.   )
    
14.   (setq typ (XD::Table:TYPE tb))
    
15.   (cond
    
16.     ((= typ "X")
    
17.       t
    
18.     )
    
19.     ((= typ "A")
    
20.       (xdrx_table_SuppressHeaderRow tb 1)
    
21.       (xdrx_table_SuppressTitleRow tb 1)
    
22.       (xdrx_table_SuppressRegenerateTable tb 1)
    
23.       t
    
24.     )
    
25.     ((= typ "L")
    
26.       (xd::symbol:put 'XD-VAR-GLOBAL-TABLE-LISTINDEXVALUES
    
27.                       (xd::table:listindexvalues tb)
    
28.       )
    
29.       (xd::symbol:put 'XD-VAR-GLOBAL-TABLE-NUMROWS
    
30.                       (xd::table:numRows tb)
    
31.       )
    
32.       (xd::symbol:put 'XD-VAR-GLOBAL-TABLE-NUMCOLUMNS
    
33.                       (xd::table:numColumns tb)
    
34.       )
    
35.       (xd::symbol:put 'XD-VAR-GLOBAL-TABLE-ColumnsWidth
    
36.                       (XD::Table:ColumnsWidth tb
    
37.                                               (xd::table:getTextstyle)
    
38.                                               (xd::table:getTextHeight)
    
39.                                               (xd::table:GetTextWidthFactor)
    
40.                                               (xd::table:getvertcellmargin)
    
41.                       )
    
42.       )
    
43.       t
    
44.     )
    
45.   )
    
46. )
    

(defun XD::Table:Begin (tb / typ)<br />   (if (not (xd::symbol:get '#xd-var-global-table-cellVertMargin))<br />     (xd::symobl:put '#xd-var-global-table-cellVertMargin 1)<br />   )<br />   (if (not (xd::symbol:get '#xd-var-global-table-textstyle))<br />     (xd::symbol:put '#xd-var-global-table-textstyle "standard")<br />   )<br />   (if (not (xd::symbol:get '#xd-var-global-table-textheight))<br />     (xd::symbol:put '#xd-var-global-table-textheight 3.5)<br />   )<br />   (if (not (xd::symbol:get '#xd-var-global-table-textwidthfactor))<br />     (xd::symbol:put '#xd-var-global-table-textwidthfactor 0.8)<br />   )<br />   (setq typ (XD::Table:TYPE tb))<br />   (cond<br />     ((= typ "X")<br />       t<br />     )<br />     ((= typ "A")<br />       (xdrx_table_SuppressHeaderRow tb 1)<br />       (xdrx_table_SuppressTitleRow tb 1)<br />       (xdrx_table_SuppressRegenerateTable tb 1)<br />       t<br />     )<br />     ((= typ "L")<br />       (xd::symbol:put 'XD-VAR-GLOBAL-TABLE-LISTINDEXVALUES<br />                       (xd::table:listindexvalues tb)<br />       )<br />       (xd::symbol:put 'XD-VAR-GLOBAL-TABLE-NUMROWS<br />                       (xd::table:numRows tb)<br />       )<br />       (xd::symbol:put 'XD-VAR-GLOBAL-TABLE-NUMCOLUMNS<br />                       (xd::table:numColumns tb)<br />       )<br />       (xd::symbol:put 'XD-VAR-GLOBAL-TABLE-ColumnsWidth<br />                       (XD::Table:ColumnsWidth tb<br />                                               (xd::table:getTextstyle)<br />                                               (xd::table:getTextHeight)<br />                                               (xd::table:GetTextWidthFactor)<br />                                               (xd::table:getvertcellmargin)<br />                       )<br />       )<br />       t<br />     )<br />   )<br /> )<br />

liuyj

这个函数在函数库里和上面不一样吧？执行(xd::symobl:put '#xd-var-global-table-cellVertMargin 1)这一句时提示参数过多，可是加载函数库就没问题。帮助文件里的代码和以上代码也不一样