История

[wowa]

Подскажите, пожалуйста, как это можно сделать::::

На форме есть субформа, там 2 поля (поле№1 и поле№2)
и есть экшен, нажимая на него выскакивает DialogBox, там 2 поля (полеА и полеБ), я их заполняю и нажимаю ОК, значение этих полей заносится в поле№1 и поле№2
Дак вот, как сделать, чтобы сколько я бы раз не нажимал Экшен.... на форме получалось бы вот так:

Типа таблицей в полях 1 и 2

значение(полеА)	 |  значение(поляБ)
значение(полеА)	 |  значение(поляБ)
...........................................................
значение(полеА)	 |  значение(поляБ)

Т.е. поле№1 содержит значения поляА, а поле№2 - значения поляБ

 

[morpheus]

НУ так поля поле№1 и поле№2 -должны быть Computed, в формуле вычисления прописать поля полеА и поляБ , ну и после диалог бокса соответствено делать uidoc.refresh

 

[wowa]

Для: Morpheus
дак в полях 1 и 2 будут только последние значения А и Б ...???

 

[morpheus]

а стоп, кажеться поял, Вы хъотите собирать все значения поля А и Б которые они когда то принимали?

НУ тогда после диалог бокса просто воспользуйтсь -NotesUIDocument.FieldAppendText ( "поле№1", implode(NotesUIDocument.Document.полеА) ) ну и аналогично со вторым вариантом

После того как Вы клацните на диалог бокс, в поле поле№1 добавиться тек. значения поляА

 

[wowa]

и значение какого-н поля может быть большим текстом, тогда уровни могут не совпадать

значение(полеА)	 |
значение(полеБ)

 

[morpheus]

Для: wowa
Значит зделайте всё это ОДНИМ полем - FieldTotal

NotesUIDocument.FieldAppendText ( "FieldTotal", implode(NotesUIDocument.Document.полеА) & " | " & implode(NotesUIDocument.Document.полеБ) )

Плюс зделайте разделителем между мультивалуями в FieldTotal - NewLine

 

[Omh]

FieldAppendText - гогно

 

[morpheus]

Для: Omh
НУ можно и AppendToTextList - єто точо не каллл...
а чем не нравиться FieldAppendText - я импросто не пользовался ниразу

Dim doc As NotesDocument
Set doc = NotesUIDocument.Document
Dim item As NotesItem
' ...set value of doc...
Set item = doc.GetFirstItem( "FieldTotal" )
Call item.AppendToTextList( implode(NotesUIDocument.Document.полеА) & " | " & implode(NotesUIDocument.Document.полеБ) )
Call doc.Save( False, True )

 

[wowa]

Все в принципе нормально...хорошо работает
но если Значение поляБ может быть очень большим, тогда

Значение(поляа) | wwwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwww

Я нашел кое-что,

_res := "<td>" + поле1+ "</td><td>" + поле2 + "</td></tr>";
_i := 0;
_res1 := @Transform( _res; "x";
@Do(
_i := 1 - _i;
"<tr class=\"l" + @Text(_i) + "\" valign=\"top\">" + x
)
);
@Implode(_res1)

 

[morpheus]

Для: wowa
я , бы для истории не хранилбы длинные значения, так ... не более 100 символов

 

[wowa]

Но там как бы не история....
Дата | замечания, предложения


Вот как бы мне с этим сделать??

_res := "<td>" + поле1+ "</td><td>" + поле2 + "</td></tr>";
_i := 0;
_res1 := @Transform( _res; "x";
@Do(
_i := 1 - _i;
"<tr class=\"l" + @Text(_i) + "\" valign=\"top\">" + x
)
);
@Implode(_res1)

 

[morpheus]

<!--QuoteBegin-wowa+12:11:2007, 10:39 -->
<span class="vbquote">(wowa @ 12:11:2007, 10:39 )</span><!--QuoteEBegin-->Вот как бы мне с этим сделать??

[snapback]85217" rel="nofollow" target="_blank[/snapback]​

[/quote]
Что это такое, и что ВЫ хотите этим добиться7

 

[wowa]

Ну насколько я понимаю этим кодом оно сделает
не

10.11.2007 | wwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwww

а

10.11.2007 | wwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwww

 

[Medevic]

Для: wowa
Создать Computed Text с этим кодом. Запихнуть его (Computed Text) между тегами <TABLE> и </TABLE>.
Выделить всё это дело. И поставить галку Pass-Thru HTML.

ЗЫ. Теги <TABLE> и </TABLE> просто написать на форме. Обычным текстом.

 

[wowa]

Для: Medevic
сделал я так...
только в примере что я нашел <TABLE> и </TABLE> тоже Pass-Thru HTML

А что прописать в экшен?

 

[Medevic]

<!--QuoteBegin-wowa+12:11:2007, 12:06 -->
<span class="vbquote">(wowa @ 12:11:2007, 12:06 )</span><!--QuoteEBegin-->только в примере что я нашел <TABLE> и </TABLE> тоже Pass-Thru HTML

[snapback]85222" rel="nofollow" target="_blank[/snapback]​

[/quote]
Я так и написал.

<!--QuoteBegin-wowa+12:11:2007, 12:06 -->
<span class="vbquote">(wowa @ 12:11:2007, 12:06 )</span><!--QuoteEBegin-->А что прописать в экшен?

[snapback]85222" rel="nofollow" target="_blank[/snapback]​

[/quote]
Пропиши добавление значений.

Кстати, изменения отображаться будут только после переоткрытия документа.

 

[wowa]

Для: Morpheus
Для: Medevic
Спасибо! Получилось +1

Хотя репутацию изменить не могу,.... жаль (