Таблицы в Lotus 6.0

  • Автор темы Mihail
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Mihail

#1
Привет всем!

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

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

Vagor.ini

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

Mihail

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

Vagor.ini

#6
Mihail
Ну 63 (64) 2пиксел*2пиксел resource image сильно базу не увеличат;)
Поделись, что делаешь?
 
N
#7
Привет, Mihail.
Если тебе все еще интересно, могу показать, как создавать динамические по строкам и столбцам разноцветные таблицы в lotus designer с сохранением в форматах microsof word и html.
 
V

Veselinka

#8
Поделись, в будущем может всем пригодиться.
 
V

Vagor.ini

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

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

mony_id

#11
У меня есть наработки по засовыванию данных из Лотуса в DBF может кому и пригодится
 
V

Vagor.ini

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

mony_id

#13
Это часть кода так как все публиковать нехватит страниц для перелистывания
идея проста ОДБС соединение и вперед. Примечание работает только с текстом, датой, числом.
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
 
Статус
Закрыто для дальнейших ответов.