本帖最后由 lifesky2006 于 2022-7-7 19:05 编辑
您只要测试一个数据库,定义几个字段,将数据库的几个字段分别设置为文本,双精度浮点数,长整型等不同格式,随便加几个记录就可以测试了,使用datasource绑定数据库后,再使用TypeHAlignCenter进行居中
会发现长整型的变成浮点型了,数据库我使用的access2003版本
我是fpspread8.0 居中代码为
fpsResult.ReDraw = False
fpsResult.MaxCols = 7
fpsResult.ColWidth(1) = 0
For i = 2 To 7
fpsResult.ColWidth(i) =300
Next
fpsResult.SetText 1, 0, "ID"
fpsResult.SetText 2, 0, "通道号"
fpsResult.SetText 3, 0, "任务名"
fpsResult.SetText 4, 0, "闸门时间"
fpsResult.SetText 5, 0, "结果"
fpsResult.SetText 6, 0, "系数"
fpsResult.SetText 7, 0, "读取时间"
fpsResult.Col = -1
fpsResult.TypeHAlign = TypeHAlignCenter
fpsResult.ReDraw = True
通道号是长整型,结果是双精度浮点,小数位自动,后面的D1,D2.....也是双精度浮点,我定义为了科学计数法
数据库的代码大致如下:
使用 select * from 测试记录 命令读取记录
fpsResult.ReDraw = False
fpsResult.MaxRows = clsRes.rst.RecordCount
Set fpsResult.DataSource = clsRes.rst
fpsResultInit '这个函数就是上面的表格列宽设置及居中设置代码
fpsResult.ReDraw = True
|
|