rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

功能升级

Browse Source
This commit is contained in:
sgwp 2024-11-29 10:31:39 +08:00
parent c85b3fa643
commit 546f6a9ec7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
public10/design/U_DetailBaseList.pas
View File

@ -371,8 +371,8 @@ begin
fWindowDesign.fProcedureName:=fProcedureName; fWindowDesign.fProcedureName:=fProcedureName;
TgridLiSet.Visible:=gIsCanDesign; TgridLiSet.Visible:=gIsCanDesign;
fdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) ; fdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) ;
CreateCxGridColumn(application, Tv1,ADOQueryBaseTemp,PWideChar(fdesignCode+'|cxgrid1')); CreateCxGridColumn( Tv1,ADOQueryBaseTemp,PWideChar(fdesignCode+'|cxgrid1'));
CreateCxGridColumn(application, Tv1,ADOQueryBaseTemp,PWideChar(fdesignCode+'|cxgrid2')); CreateCxGridColumn( Tv1,ADOQueryBaseTemp,PWideChar(fdesignCode+'|cxgrid2'));
//增加动态条件 //增加动态条件
addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7); addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7);
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption);