SKBILLgrid一些操作代码收集

NO66781

于 2022-04-02 14:12:14 发布

阅读量325

点赞数

分类专栏： KSOA 文章标签： SKBILLgrid1 用友时空 KSOA CS

本文链接：https://blog.csdn.net/NO66781/article/details/123919072

版权

KSOA 专栏收录该内容

31 篇文章 9 订阅

订阅专栏

    i :=SKBILLgrid1.Columns.Count;    //获取dssub1字段数
    for x :=0 to i-1 do
    begin
        tName :=SKBILLgrid1.Columns.Items[x].FieldName;
        case tName of
        '年销售','月平均','月销售总额','新品','高毛','喜炎平','喜炎平2','普通':
            begin
                SKBILLgrid1.Columns.Items[x].Footer.DisplayFormat := '###,###,##0.00';
                SKBILLgrid1.FieldColumns[''+Trim(tName)+''].DisplayFormat := '###,###,##0.00';
            end;
        end;
    end;

	SKBILLgrid1.SetFocus();
    SKBILLgrid1.Columns.Items[3].Color :=clTeal;
    SKBILLgrid1.Columns.Items[4].Color :=clYellow;
    SKBILLgrid1.Columns.Items[5].Color :=clRed;

	if (SKBILLgrid1.selectedfield.value ='') then
    begin
    	  SKBILLgrid1.selectedfield.value := '√';
          dssub1.Field('jsje').Value := twjsje;
          dssub1.Field('jieqing').Value := '√';
          dssub1.Field('__bcolor').Value :='';
          dssub1.Field('__fcolor').Value :='clRed';
          exit;
    end;

    function aa():boolean;
    begin
        SKBILLgrid2.Columns.Items[2].Visible :=false;
    end;


    SKBILLgrid1.RowHeight := 28;
    SKBILLgrid1.Columns.Items[0].Width := 20; 
    SKBILLgrid1.Columns.Items[3].ReadOnly :=true;