tinysoft
/
TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

v1.1.9-patch1

This commit is contained in:
csh 2023-02-22 18:00:29 +08:00
parent 6721a005ca
commit b8a23ba5a2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
funcext/TSOffice/worksheet/xlsxWorkBook.tsf
View File

@ -336,7 +336,7 @@ Type xlsxWorkBook = Class
begin begin
if LowerCase(lpstr.GetText()) = LowerCase(sourceSheet) then if LowerCase(lpstr.GetText()) = LowerCase(sourceSheet) then
begin begin
if ifnil(pstr) then vector.InsertFirstChild('element', 'vt:lpstr'); if ifnil(pstr) then lpstr := vector.InsertFirstChild('element', 'vt:lpstr');
else lpstr := vector.InsertAfterChild(pstr, 'element', 'vt:lpstr'); else lpstr := vector.InsertAfterChild(pstr, 'element', 'vt:lpstr');
lpstr.SetValue(destSheet); lpstr.SetValue(destSheet);
break; break;