if ADOQuery1.FieldByName('userid').IsNull then beginend;
begin // 我加的 yUserID := FieldByName('userid').AsString; //用户ID yShenpYJ := FieldByName('[审批意见nm]').AsString; //审批意见nm //yShenpYJ := VarToStrDef(FieldByName('[审批意见nm]').Value, ''); begin sSQL:= 'Select [用户名],[手机号码] from t_userlogin where id=(select [通知领导] from canshu where id ='''+yShenpYJ+''')'; with frmDM.qryDSelect do begin Close; SQL.Clear; SQL.Append(sSQL); Open; if RecordCount > 0 then if not FieldByName('[审批意见nm]').IsNull then begin .......................
if not FieldByName('[审批意见nm]').IsNull then ... else ...
yUserID := VarToStrDef(FieldByName('UserID').Value, '');
if ADOQuery1.FieldByName('userid').IsNull then
beginend;
yUserID := FieldByName('userid').AsString; //用户ID
yShenpYJ := FieldByName('[审批意见nm]').AsString; //审批意见nm
//yShenpYJ := VarToStrDef(FieldByName('[审批意见nm]').Value, '');
begin
sSQL:= 'Select [用户名],[手机号码] from t_userlogin where id=(select [通知领导] from canshu where id ='''+yShenpYJ+''')';
with frmDM.qryDSelect do
begin
Close;
SQL.Clear;
SQL.Append(sSQL);
Open;
if RecordCount > 0 then
if not FieldByName('[审批意见nm]').IsNull then
begin
.......................
else ...