Вверх ↑
Этот топик читают: Гость
Ответов: 36
Рейтинг: 0
#1: 2019-06-05 11:33:52 ЛС | профиль | цитата
Подскажие новичку, как распознать в таблице пустые столбцы и удалить их?
Add(MainForm,3063237,462,182)
{
Width=398
Height=242
link(onCreate,1976442:doEnum,[])
}
Add(StrList,4383086,504,126)
{
Strings=#21:Иван;Иванов;;Иванович|25:Андрей;Андреев;;Андреевич|34:Владимир;Владимиров;;Владимироваич|27:Михаил;Михаилов;;Михайлович|
}
Add(ArrayEnum,1976442,518,196)
{
link(onItem,16356153:doMT,[])
link(Array,4383086:Array,[])
}
Add(MST_RowAction,15395190,616,189)
{
MSTControl="MTStrTbl"
}
Add(MT_String,16356153,567,189)
{
link(onResult,15395190:doRowAction,[])
}
Add(MTStrTbl,15043066,462,231)
{
Width=390
Height=200
Name="MTStrTbl"
Columns=#3:Имя|7:Фамилия|6:Пустой|8:Отчество|
Grid=0
MultiSelect=0
}


Редактировалось 1 раз(а), последний 2019-06-05 11:34:26
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8338
Рейтинг: 775
#2: 2019-06-05 12:39:29 ЛС | профиль | цитата
Vandjer,
Пустые столбцы


Add(MainForm,3063237,266,140)
{
Width=506
Height=275
link(onCreate,1976442:doEnum,[])
}
Add(StrList,4383086,308,84)
{
Strings=#22:Иван;Иванов;;Иванович;|26:Андрей;Андреев;;Андреевич;|35:Владимир;Владимиров;;Владимироваич;|28:Михаил;Михаилов;;Михайлович;|
}
Add(ArrayEnum,1976442,322,154)
{
link(onItem,16356153:doMT,[])
link(Array,4383086:Array,[])
}
Add(MST_RowAction,15395190,420,147)
{
MSTControl="_MTStrTbl"
}
Add(MT_String,16356153,371,147)
{
link(onResult,15395190:doRowAction,[])
}
Add(MST_ColAction,5062666,672,406)
{
Action=3
MSTControl="_MTStrTbl"
Point(Index)
link(Index,15941448:Index,[(678,397)(659,397)(659,450)(622,450)])
}
Add(MST_Matrix,13710961,546,196)
{
MSTControl="_MTStrTbl"
}
Add(MatrixRW,9431015,546,266)
{
link(onRead,5973102:doCompare,[])
link(Matrix,13710961:Matrix,[])
link(X,15923841:Var3,[(566,245)(469,245)(469,309)])
link(Y,7138049:Position,[(573,257)(538,257)(538,306)(496,306)])
}
Add(MTStrTbl,15043066,483,154)
{
Width=390
Height=200
Name="_MTStrTbl"
Columns=#3:Имя|7:Фамилия|6:Пустой|8:Отчество|6:Пустой|
Grid=0
MultiSelect=0
}
Add(For,7138049,490,266)
{
IncludeEnd=1
onBreakEnable=0
link(onEvent,9431015:doRead,[])
link(onStop,6137298:doData,[(529,279)(529,342)])
link(End,15043066:Count,[])
}
Add(For,1276966,413,266)
{
IncludeEnd=1
link(onEvent,7138049:doFor,[])
link(End,15043066:CountCol,[(426,236)(510,236)])
}
Add(Button,6061796,266,259)
{
Left=30
Top=210
Caption="Поиск"
link(onClick,5078265:doEvent1,[])
}
Add(Button,4750764,266,406)
{
Left=305
Top=210
Width=75
Caption="Удалить все"
link(onClick,15941448:doEnum,[])
}
Add(Hub,5078265,378,259)
{
link(onEvent1,11082414:doWork2,[(403,265)(403,349)])
link(onEvent2,1276966:doFor,[])
}
Add(If_else,5973102,595,266)
{
Type=5
Op2=String()
link(onTrue,7138049:doStop,[(641,272)(641,314)(480,314)(480,279)])
}
Add(DoData,6137298,546,336)
{
link(onEventData,4427915:doAdd,[])
link(Data,15923841:Var2,[(552,327)(419,327)])
}
Add(ListBox,4427915,595,336)
{
Left=415
Top=45
Width=70
Height=185
}
Add(GetDataEx,15923841,413,304)
{
link(Data,1276966:Position,[])
}
Add(ArrayEnum,15941448,609,406)
{
Type=1
link(onItem,5062666:doColAction,[])
link(onEndEnum,11082414:doWork3,[(648,419)(648,398)(585,398)])
link(Array,4427915:Array,[])
}
Add(HubEx,11082414,581,343)
{
link(onEvent,4427915:doClear,[])
}
Add(Label,14956804,637,336)
{
Left=410
Width=73
Height=42
Caption="Индексы пустых столбцов"
AutoSize=1
Alignment=2
}

карма: 14

0
Ответов: 36
Рейтинг: 0
#3: 2019-06-05 12:43:53 ЛС | профиль | цитата
Леонид писал(а):
Пустые столбцы

Спасибо, очень помогли!
карма: 0

0
Ответов: 36
Рейтинг: 0
#4: 2019-06-05 16:09:57 ЛС | профиль | цитата
Не могу разобраться, можно ли как-то сделать один заголовок, на два столбца?
карма: 0

0
Ответов: 1759
Рейтинг: 604
#5: 2019-06-05 22:10:10 ЛС | профиль | цитата
Vandjer, не в одной из таблиц нет такой возможности.
карма: 7

0
Ответов: 36
Рейтинг: 0
#6: 2019-06-06 14:19:42 ЛС | профиль | цитата
sla8a, дополнения из этой темы http://forum.hiasm.com/topic/63618/0 уже не рабочие?
карма: 0

0
Ответов: 1759
Рейтинг: 604
#7: 2019-06-06 19:03:19 ЛС | профиль | цитата
Vandjer, они и не были рабочими. Это попытка доработать MTStrTbl и выложены для ознакомления.
карма: 7

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)