我正在使用Embarcadero®RAD Studio 10 Seattle版本23.0.20618.2753
将列设为只读
for(i in 1:length(tiempo_recibe_pago_ap)) {
if (tiempo_recibe_pago_ap[i]==4) {p_s4b42[i] = sueldo_bruto_ap_monto[i]}
else if (tiempo_recibe_pago_ap[i]==3) {p_s4b42[i] = sueldo_bruto_ap_monto[i]*2}
else if (tiempo_recibe_pago_ap[i]==2) {p_s4b42[i] = sueldo_bruto_ap_monto[i]*4.3}
else if (tiempo_recibe_pago_ap[i]==1) {p_s4b42[i] = sueldo_bruto_ap_monto[i] * tiempo_recibe_pago_dias_ap[i] *4.3}
else if (sueldo_bruto_ap_moneda[i] == "USD" & periodo[i] == 201901 & tiempo_recibe_pago_ap[i] == 4) {p_s4b42[i] = sueldo_bruto_ap_monto[i]*tcR[3,6]}
else if (sueldo_bruto_ap_moneda[i] == "USD" & periodo[i] == 201902 & tiempo_recibe_pago_ap[i] == 4) {p_s4b42[i] = sueldo_bruto_ap_monto[i]*tcR[17,6]}
}
和
使我使用的单元格只读
Grid_All_Party.Columns[2].ReadOnly := True;
但是如何使网格的所有单元格均为只读,而无需亲自对所有列使用以下代码。
Grid_All_Party.ReadOnlys[1,0] := True;