[C/S]记录一个IBM Domino Notes 数据库视图上的字段值修改公式，做数据维护用的

最新推荐文章于 2026-06-21 15:14:42 发布

原创最新推荐文章于 2026-06-21 15:14:42 发布 · 1.1k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#ibm #数据库 #bt

Lotus技术专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一个用于IBMDominoNotes数据库视图上字段值修改的公式。该公式考虑了旧值的备份、简要表的读写及新旧值相等的情况。通过使用Profile字段和提示对话框来实现字段值的更新。

记录一个放在IBM Domino Notes 数据库视图上的字段值修改公式，已经从有点小BT升级到很有些BT了。

考虑了旧值的备份，简要表的读写，新旧值相等的忽视。

REM {修改字段值.v3	tmpFieldName=字段名称; tmpFieldValue=要赋给该字段的值.};
tmpProfile:="adm_oper_profile";
tmpFieldName:=@GetProfileField(tmpProfile; "lastOPFieldName";"admin") ;
tmpFieldValue:=@GetProfileField(tmpProfile; "lastOPFieldVal";"admin") ;

NL:=@NewLine;
tmpTimestamp:=@ReplaceSubstring(@Text(@Now);"-":":":" ";"":"":"_");
tmpTitle:="TimeStamp:"+tmpTimestamp+NL+NL;

tmpFieldName:=@Prompt([OkCancelEdit]; "Enter Field Name "; tmpTitle+"Type Field Name in the box below.";tmpFieldName);
tmpFieldValue:=@Prompt([OkCancelEdit]; "Enter Field Value"; tmpTitle+"Type Field Value in the box below."; tmpFieldValue);

@If(@GetField(tmpFieldName)=tmpFieldValue;
 @Return(@Prompt([Ok];"Error";"New Value == Old Value ! SKIP!"+NL+NL+tmpFieldValue));
"");

REM {backup old value};
tmpBakFN:="$bak_"+tmpFieldName;
tmpBakFV1:=@GetField(tmpBakFN);
tmpBakFV2a:="adm_op_time:"+tmpTimestamp;
tmpBakFV2:=tmpBakFV2a:@GetField(tmpFieldName);
tmpBakFV:=@If(tmpBakFV1="";tmpBakFV2;tmpBakFV1:tmpBakFV2);
@SetField(tmpBakFN;tmpBakFV);

REM {change field val};
@SetField(tmpFieldName;tmpFieldValue);

@SetProfileField(tmpProfile; "lastOPFieldName";tmpFieldName;"admin") ;
@SetProfileField(tmpProfile; "lastOPFieldVal";tmpFieldValue;"admin") ;
1