关于导出EXCEL新建行插入标题的问题？

关于VB6.0中使用Spread COM 8.0导出EXCEL插入标题时，如果邦定的数据库字段为Int类型时，标题中的中文自动变成了0,怎么回事？

1.数据库数据显示是通过如下方法从数据库中直接查询得到的：

1. '设置数据源
   
2.     Set Rs = New ADODB.Recordset
   
3.     Rs.Open "SELECT ID,MDCode,PTCode,FACode,TSCode,OHCode,Q1Code,Q2Code,Q3Code,Source,UserName,FailType,PCName,Result,convert(varchar(20),StartTime,120),convert(varchar(20),EndTime,120),SysVER,Edition,Remark,SortID,CardType,DBase,CheckDBase,Xml,Equipment,convert(varchar(20),TSDate,120),convert(varchar(20),GLDate,120),CaInt,convert(varchar(20),LfDate,120) FROM TestTable where " & lstr, Ronn, adOpenKeyset, adLockOptimistic
   
4.     Set fpSpread1.DataSource = Rs
   
5.     Rs.Close

复制代码

2.表格数据显示如下图所示



3.我在导出EXCEL时，为了能够将标题一起导出，使用了如下方法：
先在第一行插入一行，然后将标题行的信息复制到刚插入的行，通过ExportToExcel方法导出后，再删除刚插入的行，具体代码如下：

1. fpSpread1.Redraw = False
   
2.                   fpSpread1.MaxRows = fpSpread1.MaxRows + 1
   
3.                   fpSpread1.InsertRows 1, 1
   
4. 
   
5.                   fpSpread1.Col = 1
   
6.                   fpSpread1.col2 = fpSpread1.MaxCols
   
7.                   fpSpread1.Row = 1
   
8.                   fpSpread1.row2 = 1
   
9.                   
   
10.                   fpSpread1.BlockMode = True
    
11.                   fpSpread1.CellType = CellTypeStaticText
    
12.                   fpSpread1.BlockMode = False
    
13.                   fpSpread1.CopyRange 1, -1000, fpSpread1.MaxCols, -1000, 1, 1
    
14.                   fpSpread1.BlockMode = True
    
15.                   fpSpread1.TypeHAlign = TypeHAlignCenter
    
16.                   fpSpread1.BackColor = &H80FF80
    
17.                   fpSpread1.ForeColor = &HFFFFFF
    
18.                   fpSpread1.FontName = "Arial"
    
19.                   fpSpread1.FontSize = 11
    
20.                   fpSpread1.BlockMode = False
    
21.                  
    
22.                   ret = fpSpread1.ExportToExcel(dlg.FileName, "报表数据", "")
    
23.                   '删除导出临时标题行
    
24.       
    
25.                   fpSpread1.DeleteRows 1, 1
    
26.                   fpSpread1.MaxRows = fpSpread1.MaxRows - 1
    
27.                   fpSpread1.Redraw = True

复制代码

但是为什么我导出后的EXCEL文件中，只要数据库字段不是字符串类型的，标题名都没有正常显示。如下图所示：
如何解决啊！急急急

回复 1楼wlosg的帖子

wlsog 你好，

请尝试在绑定之前设置 Spread DAutoCellTypes  为false ，这样就可以不按照数据库字段类型生成单元格信息。

回复 2楼iceman的帖子

iceman 你好！
   非常感谢！已经解决了！

     Set fpSpread1.DataSource = ds后，如果没有ds.Close时，是不是编辑表格中的数据时，会同时更新数据库数据啊？

回复 3楼wlosg的帖子

我这边使用 Access 数据库测试，无论是否关闭都会同步到数据库。

可以使用   fg.DAutoSave = False 属性控制，Ture 即同步，否则不同步。