主题:TreeView问题
我有三个表:tbls,tblj,tblh
tbls(sbh,smc),tblj(sbh,jbh,jmc),tblh(sbh,jbh,hbh,hmc)*括号内是每个表的字段。
我在表单控件的init中写代码:
this.lineStyle= 1
this.style = 7 && tvwTreelinesPlusMinusPictureTex
this.ImageList =thisform.iMAGELIST1
SELECT tbls
SCAN
this.Nodes.Add(,,tbls.sbh,tbls.smc,1,2)
SELECT tbls
SELECT * FROM tblj WHERE ALLTRIM(tbls.sbh)=ALLTRIM(tblj.sbh) INTO CURSOR emp01
SELECT emp01
SCAN
this.Nodes.Add(sbh,4,jbh,jmc,2,2)
ENDSCAN
SELECT tblj
SELECT * FROM tblh WHERE ALLTRIM(tblj.jbh)=ALLTRIM(tblh.jbh ) INTO CURSOR emp02
SELECT emp02
SCAN
** this.Nodes.Add(jbh,4,hbh,hmc,3,2)&&这句有问题
ENDSCAN
ENDSCAN
我的目的是建立一个三层的内容。
请指导
谢谢了
tbls(sbh,smc),tblj(sbh,jbh,jmc),tblh(sbh,jbh,hbh,hmc)*括号内是每个表的字段。
我在表单控件的init中写代码:
this.lineStyle= 1
this.style = 7 && tvwTreelinesPlusMinusPictureTex
this.ImageList =thisform.iMAGELIST1
SELECT tbls
SCAN
this.Nodes.Add(,,tbls.sbh,tbls.smc,1,2)
SELECT tbls
SELECT * FROM tblj WHERE ALLTRIM(tbls.sbh)=ALLTRIM(tblj.sbh) INTO CURSOR emp01
SELECT emp01
SCAN
this.Nodes.Add(sbh,4,jbh,jmc,2,2)
ENDSCAN
SELECT tblj
SELECT * FROM tblh WHERE ALLTRIM(tblj.jbh)=ALLTRIM(tblh.jbh ) INTO CURSOR emp02
SELECT emp02
SCAN
** this.Nodes.Add(jbh,4,hbh,hmc,3,2)&&这句有问题
ENDSCAN
ENDSCAN
我的目的是建立一个三层的内容。
请指导
谢谢了