语句如下:
V.cells[i,j].value:=ADOTable.Fields[j-1].AsString
6 个解决方案
#1
???
#2
V.cells[i,j].text:=ADOTable.Fields[j-1].AsString
#3
首先设置 v.cells[i,j] 格式为 text 格式
#4
V.cells[i,j].text:=''''+ADOTable.Fields[j-1].AsString
#5
asstring;
#6
excel:
worksheet.Cells[1,1].NumberFormat := '@'; // 按字符格式显示,不去掉前导的0
worksheet.Cells[1,1].NumberFormat := '@'; // 按字符格式显示,不去掉前导的0
#1
???
#2
V.cells[i,j].text:=ADOTable.Fields[j-1].AsString
#3
首先设置 v.cells[i,j] 格式为 text 格式
#4
V.cells[i,j].text:=''''+ADOTable.Fields[j-1].AsString
#5
asstring;
#6
excel:
worksheet.Cells[1,1].NumberFormat := '@'; // 按字符格式显示,不去掉前导的0
worksheet.Cells[1,1].NumberFormat := '@'; // 按字符格式显示,不去掉前导的0