Таблицы в Lotus 6.0

Тема в разделе "Lotus - FAQ", создана пользователем Mihail, 1 апр 2004.

Статус темы:
Закрыта.
  1. Mihail

    Mihail Гость

    Привет всем!

    существует задача программно создать таблицу для вывода информации в форме Lotus 6.0. Необходимо , чтобы диапазоны
    ячеек были подсвечены разными цветами (шоб цветов было
    больше 2 шт.).

    Небольшой вопрос:
    как это реально сделать?
     
  2. Vagor.ini

    Vagor.ini Гость

    Mihail
    Насколько я знаю программно к цвету ячейки не добраться, а вот фоновую картинку (а это может быть пиксел цвета растянутый по ячейке) на собаках менять можно...
    Может пример поможет (на 5 работает), но для начала зарегистрируйся, а то пример не отцепишь:)
     
  3. Mihail

    Mihail Гость

    :) как приаттачено ? не могу добыть пример
     
  4. Vagor.ini

    Vagor.ini Гость

    Так сейчас приаттачу:)
     

    Вложения:

    • tablewalker.ZIP
      Размер файла:
      115 КБ
      Просмотров:
      209
  5. Mihail

    Mihail Гость

    Спасиба за совет - все отлично работает.
    Свойства таблицы -> цвета -> фоновый рисунок по формуле.
    Один прикол - мне понадобится 63 цвета ;)
     
  6. Vagor.ini

    Vagor.ini Гость

    Mihail
    Ну 63 (64) 2пиксел*2пиксел resource image сильно базу не увеличат;)
    Поделись, что делаешь?
     
  7. nor

    nor Гость

    Привет, Mihail.
    Если тебе все еще интересно, могу показать, как создавать динамические по строкам и столбцам разноцветные таблицы в lotus designer с сохранением в форматах microsof word и html.
     
  8. Veselinka

    Veselinka Гость

    Поделись, в будущем может всем пригодиться.
     
  9. Vagor.ini

    Vagor.ini Гость

    nor
    Конечно, давай, если не сложно, выкладывай на форум...
    Зреет у меня мысль о наполнении подобными(разными) практическими примерами сам сайт, не форум.
    Но сие надо обсудить, поэтому и хотелось бы встретиться ближе к выходным с Уважаемым nor и поговорить...
     
  10. nor

    nor Гость

    ok, народ.

    разберусь с гр*цензура*ым универом и на выходных выложу скрипты с коментариями...
     
  11. mony_id

    mony_id Гость

    У меня есть наработки по засовыванию данных из Лотуса в DBF может кому и пригодится
     
  12. Vagor.ini

    Vagor.ini Гость

    mony_id
    В принципе, мне как бы не помешало, хотя чаще я поступаю наоборот... из Dbf в Лотус, но давай кидай пример...
     
  13. mony_id

    mony_id Гость

    Это часть кода так как все публиковать нехватит страниц для перелистывания
    идея проста ОДБС соединение и вперед. Примечание работает только с текстом, датой, числом.
    RTF неработает!!!!!
    Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim uiview As NotesUIView
    Dim view As NotesView
    Dim view_count As NotesView
    Dim doc As NotesDocument
    Dim doc_count As NotesDocument
    Dim item As NotesItem
    Dim item1 As NotesItem
    Dim ddd As NotesDateTime
    Dim con As ODBCConnection
    Dim mas(1010) As String
    Dim c_mas As Integer
    Dim msg As String
    Dim getstr As String
    Dim count As Long
    Dim num_pod As String
    Dim index_pod As String
    Dim index_num As String
    Dim countcard As Long
    Dim countcard1 As String
    Dim flag As Integer
    Dim pole As String
    Dim dateTime As NotesDateTime
    Dim dateTime_pod As NotesDateTime
    Dim qry As New ODBCQuery
    Dim result As New ODBCResultSet

    Dim qry1 As New ODBCQuery
    Dim result1 As New ODBCResultSet

    Set db = session.currentdatabase

    Set view_count = db.GetView("PODSCHET")
    Set doc_count = view_count.GetFirstDocument
    Set item = doc_count.GetFirstItem("count")
    countcard = item.Values(0)


    index_num = "000000"
    'Set uiview = workspace.CurrentView
    Set view = db.GetView("itogi50")
    Set con = New ODBCConnection
    If Not con.ConnectTo("Gran1") Then
    Messagebox "Could not connect to " & "Gran1"
    Else
    Messagebox "УРА!!! Произошло, как ни странно, соединение с источником данных - " & "Gran1"
    End If
    Print "ЖДИТЕ! ИДЕТ ВЫПОЛНЕНИЕ ЗАПРОСА!"
    Set qry.Connection = con
    Set result.Query = qry
    qry.SQL = "SELECT * FROM GRMAIN"
    result.Execute

    Set qry1.Connection = con
    Set result1.Query = qry1
    qry1.SQL = "SELECT * FROM OPERS"
    result1.Execute


    On Error Resume Next
    count = 0
    If countcard=0 Then
    countcard=1
    End If
    Set doc = view.GetFirstDocument
    While Not (doc Is Nothing)

    result.AddRow

    '***************************************************88
    If doc.HasItem("tempuskod") Then
    Set item = doc.GetFirstItem("tempuskod")
    End If
    countcard1 = Cstr(countcard)
    p& = Len(countcard1)
    s$ = Mid$(index_num,1,6-p&)
    card$=num_pod+s$+countcard1
    Call result.SetValue("NCARD", card$)
    '**************************************************
    s_ID$=doc.UniversalID
    mas(count)=s_ID$
    countcard=countcard+1
    count=count+1
    result.UpdateRow
    Print "ОБРАБОТАНО "+ Str(count)+ " документов"

    If count=1000 Then
    Set doc = Nothing
    Else
    Set doc = view.GetNextDocument(doc)
    End If


    Wend
    Call doc_count.ReplaceItemValue("count",countcard)
    Call doc_count.Save(True,True)
    'ert:
    'Messagebox "Закачено! УСЁЁЁЁЁЁЁЁЁЁЁЁЁ"
    ' con.CommitTransactions
    result.Close(DB_CLOSE)
    con.Disconnect

    'c_mas=0
    'Set doc = db.GetDocumentByUNID(mas(c_mas))
    count=count-1
    Call view.Refresh
    Call workspace.ViewRefresh
    End Sub
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей