while not adodataset1.Eof do
begin
for i:=0 to adodataset1.FieldCount-1 do
sheet.cells[row,i+1]:= adodataset1.Fields[i].AsString;
inc(row);
adodataset1.Next;
end;其中有一个日期型字段,输出到excel 后日期乱了!怎么办????
begin
for i:=0 to adodataset1.FieldCount-1 do
sheet.cells[row,i+1]:= adodataset1.Fields[i].AsString;
inc(row);
adodataset1.Next;
end;其中有一个日期型字段,输出到excel 后日期乱了!怎么办????
解决方案 »
- 路径名问题
- 拦截WM_NCHITTEST消息进行处理后.图片相关控件(如TImage)的事件失效了
- 请教delphi7.0开发碰到的一个问题…………
- 在DELPHI如何使用EnumDateFormats去修改系统日期格式为yyyy-mm-dd(急)!!!
- 尽管UpdateBatch()提示不成功,可事实上后台表中已保存了. 怪事!
- fastreport打印本期合计的大写金额
- 有关自编控件的问题。
- 用ADOQuery和ADOTable不能做QR报表吗?
- 高分求教利用TclientDataSet写入Blob字段的方法!
- 请问在D5中怎样取消一个打印作业?
- 怎样取得屏幕上任一个点的颜色值???(在线等待....................)
- delphi自带的vcl示范代码精典吗
begin
for i:=0 to adodataset1.FieldCount-1 do
begin
if adodataset1.Fields[i] is TDateTimeField then
sheet.cells[row,i+1]:= formatdatetime('yyyy-MM-dd',adodataset1.Fields[i].asdatetime)
else
sheet.cells[row,i+1]:= adodataset1.Fields[i].AsString;
inc(row);
adodataset1.Next;
end;
while not adodataset1.Eof do
Application.ProcessMessages;
begin
for i:=0 to adodataset1.FieldCount-1 do
Application.ProcessMessages;
sheet.cells[row,i+1]:= formatedatetime('yyyy-m-d',adodataset1.Fields[i].Asdatetime);
inc(row);
adodataset1.Next;
end;
while not adodataset1.Eof do
Application.ProcessMessages;
begin
for i:=0 to adodataset1.FieldCount-1 do
Application.ProcessMessages;
if ADOQuery1.Fields[i].DataType= ftdatetime then
sheet.cells[row,i+1]:= formatedatetime('yyyy-m-d',adodataset1.Fields[i].Asdatetime)
else
sheet.cells[row,i+1]:= adodataset1.Fields[i].Asstring;
inc(row);
adodataset1.Next;
end;
RETURNS VARCHAR(20)
AS
BEGIN
RETURN CAST( YEAR( @sourceDate ) AS VARCHAR(4) ) + '年' + CAST( MONTH( @sourceDate ) AS VARCHAR(2) ) + '月'+ CAST( DAY( @sourceDate ) AS VARCHAR(2) ) + '日'
END然后在查询时用以下语句实现:SELECT dbo.Date_To_Str( BirthDay ) AS TestDateTime FROM TestTable