Lotus Notes常用的Toolbar设定：查询及修改Notes当前文书全部Field及其值

下记内容需在Toolbar中新建Button的Formula内实现，新建Button方法参见 这里

 

1.查询Notes当前文书全部Field，及被选定Field的值的方法：

List := @DocFields;
DataTypes := "Text" : "Date" : "Number" ;
EditField := @Prompt( [OkCancelList] ;"フィールドの選択" ; "表示したいフィールドを選んでください:" ;Null ; List ) ;

Edit := @Prompt( [YesNo] ; "確認" ; "このフィールドの現在の値を表示しますか \"" + EditField + "\"." );

REM { 選択されたフィールド値を取得する};
value := @Implode(@Text(@GetField(@Text(EditField)));",");

RawValue := @If( Edit = 1 ; @Prompt( [OkCancelEdit] ;"値" ; "値の確認." ; value) ;
@Return(NULL) );
@True

 

2.查询Notes当前文书全部Field，及修改被选定Field的值的方法：

List := @DocFields;
DataTypes := "Text" : "Date" : "Number" ;
EditField := @Prompt( [OkCancelList] ;"変更するフィールドの選択" ; "変更したいフィールドを選んでください:" ;Null ; List ) ;

Edit := @Prompt( [YesNo] ; "確認" ; "このフィールドの現在の値を変更しても良いですか \"" + EditField + "\"." );

REM { 選択されたフィールド値を取得する};
value := @Implode(@Text(@GetField(@Text(EditField)));",");

RawValue := @If( Edit = 1 ; @Prompt( [OkCancelEdit] ;"新しい値" ; "新しく変更したい値を入力してください." ; value) ;@Return(NULL) );

DataType := @Prompt( [OkCancelList] ; "データタイプ" ;"データタイプを選択してください" ; "Text" ; DataTypes );

@If( DataType = "Date" ; @SetField( EditField ; @TextToTime( RawValue )) ;

DataType = "Number" ; @SetField( EditField ; @TextToNumber( RawValue )) ;

@SetField( EditField ; RawValue ) )