|

楼主 |
发表于 2008-4-3 16:05:12
|
显示全部楼层
不准数据集修改是语句是什么呢?
现在闲一些,便又想到解决这个问题了,听了楼上的建议
我写了如下代码。但是我不清楚不准数据集修改是语句是什么呢?因为DataSetGJFEJWXTMXSJJ.Edit:=false;是错误的,编译错不可赋值。
procedure TZXJXX.DataSetGJFEJWXTZSJJAfterScroll(DataSet: TDataSet);
var
tDutyDate,tSysToday:TDateTime;//值班日期,当前日期
flag:ShortInt;
begin
tSysToday:=DateUtils.Dateof(SysUtils.Now());
tDutyDate:=DateUtils.Dateof(DataSetGJFEJWXTZSJJ.FieldByName('F_Date').AsDateTime);
flag:=DateUtils.CompareDate(tDutyDate,tSysToday);
if flag<>0 then
DataSetGJFEJWXTMXSJJ.Edit:=false;//从数据集不可修改
end;
end;
请问如何使从数据集不可改呢? |
|