77077 发表于 2014-3-26 21:28:38

求个段代码，关于读取表项的！

求个段代码，程序自动读取子表中第一个值到列表框，选择不同的列表框值，编辑框中的文字跟着变。
=============分割线=================
文本文件内容如下：
R1,0.5,22,45,12
R2,1.2,26,40,24
R3,1.8,35,30,24
R4,1.8,35,30,24
C1,2.5,35,35,60
C2,3,40,30,45
C3,2.5,30,35,24
C4,2,30,35,24
C5,1.5,25,35,24
C6,1.2,30,35,24
C7,0.5,25,40,12
C9,0.5,25,40,12
M1,1,35,30,25
M2,1,35,30,25
M3,0.5,25,40,12
=============分割线=================
读取到表：
(("R1" "0.5" "22" "45" "12") ("R2" "1.2" "26" "40" "24") ("R3" "1.8" "35" "30" "24") ("R4" "1.8" "35" "30" "24") ("C1" "2.5" "35" "35" "60") ("C2" "3" "40" "30" "45") ("C3" "2.5" "30" "35" "24") ("C4" "2" "30" "35" "24") ("C5" "1.5" "25" "35" "24") ("C6" "1.2" "30" "35" "24") ("C7" "0.5" "25" "40" "12") ("C9" "0.5" "25" "40" "12") ("M1" "1" "35" "30" "25") ("M2" "1" "35" "30" "25") ("M3" "0.5" "25" "40" "12"))
===============分割线==================
DCL文件：
readlst-box:dialog {
    label = "表数据测试" ;
    :boxed_column {
      label = "请选择" ;
      :popup_list {
            label = "表头" ;
      }
      :edit_box {
            label = "子项1" ;
      }
      :edit_box {
            label = "子项2" ;
      }
      :edit_box {
            label = "子项3" ;
      }
      :edit_box {
            label = "子项4" ;
      }
    }
    ok_only;
}
=============分割线=================




xyp1964 发表于 2014-3-27 22:03:55



77077 发表于 2014-4-2 10:22:15

感谢院长提供思路!
页: [1]
查看完整版本: 求个段代码，关于读取表项的！