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

v1.8.3

This commit is contained in:
csh 2025-10-30 15:58:12 +08:00
parent 2b62e4e1a5
commit 95a00e7002
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/TOfficeObj.tsf
View File

@ -14895,7 +14895,7 @@ Type TTable = Class(DocObject, TTableImpl)
[rowcount,colcount] := mSize(data);//一维数组 [rowcount,colcount] := mSize(data);//一维数组
if colcount = 0 then if colcount = 0 then
data := array(data); data := array(data);
fields := FieldNames(data); fields := mcols(data, 1);
if IsTable(fields) then Begin if IsTable(fields) then Begin
r := nils(length(data),length(fields)); r := nils(length(data),length(fields));
for i:=0 to length(data)-1 do for i:=0 to length(data)-1 do