Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > VB в Lotus

Автор: Gorro 8.3.2008, 13:01

Здесь у меня Windows форма написанная LotusScript-ом  ( VB в Lotus) . Я новичок в обоих.
В этой форме реализовано одна radio button. Проблема в том, что этот field инициализируется только после второй загрузки программы, если при первой загрузке я пытался ею воспользоваться (хотя неудачно).
Так вот. У этого field-a два выбора, ею выбирается онлайн статус юзера. Ее параметры в Lotus-е :

Type - RadioButton
Name - fldConnected
Choices -  @GetProfileField("StringTable"; "CONNECTED"; @UserName):
                @GetProfileField ("StringTable"; "UNAVAILABLE"; @UserName)
Default Value - @GetProfileField("StringTable"; "CONNECTED"; @UserName) (вот эта часть наверное и не работает)

а код под ним:

Код


Function NewStatus_Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim bOk As Boolean

    Call g_thisForm.FieldSetText("fldConnected", GetString("CONNECTED")) 'при первой загрузке - нихт
    Call g_thisForm.FieldSetText("fldNote", "")

    bOk = ws.DialogBox("NewStatus", True, True, , , , , GetString("NEWSTATUS"), , True, , True)

    If bOk = True Then
        'grab values from fldConnected and fldNote
        Dim Type As Long
        Dim Note As String

         If "" <> PresenceNote Then
            If GetString("UNAVAILABLE") = g_thisForm.FieldGetText("fldConnected") Then
'вот здесь FieldGetText("fldConnected") возвращает пустую строку
                PresenceType = UNAVAILABLE
            Else
                PresenceType = CONNECTED
            End If
..............................................................

Одно из возможных решений по моему сделать так, чтоб этот филд возвращал int, только не знаю как это делается в Lotus-e. Пробовал даже при возвращении пустой строки перезагрузить эту часть формы и вызвать эту функцию еще раз, но не получился.

уже нет никаких идей ((( Поэтому по'стою здесь (первый раз на каком-либо форуме :P Сказали здесь самый лучший )))

Заранее спасибо