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 ) )