*动态内表alv显示时要求某些单元格显示颜色 *wa_fldcat-datatype不能添加LVC_T_SCOL类型,在创建好内表之后,再添加颜色列. DATA: wa_fldcat TYPE lvc_s_fcat, lt_fldcat TYPE lvc_t_fcat, dy_table TYPE REF TO data, dy_line TYPE REF TO data, <dyn_table> TYPE STANDARD TABLE, <dyn_wa>, dref_tab TY
Public Function QTP_Change_Color(pathway,sheetname,x,y,color) Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3 set srcData = CreateObject("Excel.Application") srcData.Visible = True set srcDoc = srcData.Workbooks.Open(path
FORM set_style USING fieldname style TYPE string CHANGING it_styles TYPE lvc_t_styl. DATA: ls_style TYPE lvc_s_styl. CLEAR ls_style. ls_style-fieldname = fieldname. IF style EQ 'ENABLE'. ls_style-s
FORM frm_merge_cells USING sor_cell tar_cell. CALL METHOD OF excel 'Range' = range EXPORTING #1 = sor_cell 'B2 #2 = tar_cell. 'C2 SET PROPERTY OF range 'MergeCells' = 1. ENDFORM.
procedure TF_Resource2.UniDBGrid1DrawColumnCell(Sender: TObject; ACol, ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);begin if Column.FieldName='zt' then begin if Column.Field.AsString='通过' then begin Attribs.Font.Col