Не пойму, где ошибка.

Страницы: 1
RSS
Не пойму, где ошибка.
 
Код
function body()
local ServerTime = getInfoParam("ServerTime")
if(ServerTime==nil or ServerTime=="") then
Problem = "Error!"
end
SetCell(TableID,1,2,ServerTime)
SetCell(TableID,1,3,Problem)
sleep(1000)
end


function PutDataToTableInit()
Clear(TableID)
SetWindowPos(TableID,100,200,500,300)
SetWindowCaption(TableID,"Робот")
---------------------------------------------
InsertRow(TableID,-1)
end

Всем здравия! Задачка простенькая, но я не понимаю, в чем здесь проблема. На выходе Пустая таблица без заглавия окна и серверного времени. Спасибо!
 
Без полного кода сложно будет получить ответ. Где часть кода создания таблицы и ее колонок?
 
Код
dofile (getScriptPath() .. "\\dll_RobotSAR.lua")
is_run = true
Timer = 3
Problem = ""

function OnInit()
TableId = AllocTable()
AddColumn(TableId,1,"Параметры",true,QTABLE_STRING_TYPE,20)
AddColumn(TableId,2,"Values",true,QTABLE_STRING_TYPE,20)
AddColumn(TableId,3,"Comments",true,QTABLE_STRING_TYPE,30)
CreateWindow(TableId)
PutDataToTableInit()


end

Подозреваю, где проблема. getScriptPath() передает пустые данные. Проблема, похоже, с размещением библиотеки.
 
Цитата
Сергей написал:
Clear(TableID)
Цитата
Сергей написал:
TableId = AllocTable()
Ничего не смущает?
 
Цитата
Сергей написал:
Clear(TableID
Изменил регистр - не работает
Убрал функцию clear() - не работает
 
Цитата
Сергей написал:
Изменил регистр - не работаетУбрал функцию clear() - не работает
TableID и TableId это разные переменные. Вы в одну сохраняете идентификатор таблицы, а потом используете другую (которая nil скорее всего) для очистки и добавления строк.
 
Код
dofile (getScriptPath() .. "\\dll_RobotSAR.lua")
is_run = true
Timer = 3
Problem = ""

function OnInit()
TableId = AllocTable()
AddColumn(TableId,1,"Параметры",true,QTABLE_STRING_TYPE,20)
AddColumn(TableId,2,"Values",true,QTABLE_STRING_TYPE,20)
AddColumn(TableId,3,"Comments",true,QTABLE_STRING_TYPE,30)
CreateWindow(TableId)
PutDataToTableInit()
Код
function body()
local ServerTime = getInfoParam("ServerTime")
if(ServerTime==nil or ServerTime=="") then
Problem = "Error!"
end
SetCell(TableID,1,2,ServerTime)
SetCell(TableID,1,3,Problem)
sleep(1000)
end


function PutDataToTableInit()
Clear(TableId)
SetWindowPos(TableID,100,200,500,300)
SetWindowCaption(TableID,"Робот")
---------------------------------------------
InsertRow(TableID,-1)
Я понял, что работал с разными переменными. Изменил, а воз и ныне там
 
Спасибо, еще раз пробежал код и все заработало!
Страницы: 1
Читают тему
Наверх