nesco писал(а):
Я тоже этой проблемы не понял. Если укоротить количество столбцов до цены, то все начинает работатьА так у вас работает?
Add(Label,9698110,175,35)
{
Width=476
Height=45
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,3171043,98,112)
{
Left=20
Top=105
Width=492
Height=273
Caption="Excel в XML"
Position=1
link(onCreate,10550167:doEvent1,[])
}
Add(Button,941652,98,161)
{
Left=310
Top=10
Width=95
Caption="Конвертировать"
link(onClick,10550167:doEvent2,[(137,167)(137,139)])
}
Add(Edit,11108326,238,126)
{
Left=10
Top=10
Width=295
Text=""
link(onChange,5892026:doString,[])
}
Add(ODialog,14109174,189,126)
{
Filter="Excel|*.xls*"
link(onExecute,11108326:doText,[])
}
Add(DS_ODBC,6691432,350,126)
{
Name="asd"
Point(onError)
link(onCreate,4428936:doString,[])
link(onError,16198617:doEvent,[(396,139)(396,188)])
}
Add(DSC_Query,9809447,455,126)
{
DSManager="asd"
link(onQuery,3242928:doAddRow,[])
link(onColumns,3242928:doAddCols,[])
link(onError,11634924:doEvent,[(515,146)(515,202)])
}
Add(FormatStr,4428936,406,126)
{
Mask="SELECT *\r\nFROM [Лист1$]\r\n"
link(onFString,9809447:doQuery,[])
}
Add(Hub,10550167,154,126)
{
InCount=2
link(onEvent1,14109174:doExecute,[])
}
Add(FormatStr,5892026,301,126)
{
Mask="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};\r\nDBQ=%1;"
Point(FString)
link(onFString,6691432:doOpen,[])
}
Add(Debug,16198617,406,182)
{
LogCount=100
}
Add(MTStrTbl,820392,392,49)
{
Width=506
Height=244
Align=5
Name="tabl"
ColorItems=0
Redaction=0
Grid=0
}
Add(MST_DB,3242928,525,126)
{
MSTControl="tabl"
}
Add(Debug,11634924,532,196)
{
LogCount=100
}
У меня все столбцы попадают в таблицу.