[求助]不同的数据源，数据类型不同（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一个案例：通过 Fill ,从不同的数据源生成 “效率” 表，其数据类型不同，内部表和Access数据源生成的表，“定时”、“实时”、“效率”三列均为双精度小数，而SQL Server数据源生成的表，上述三列却均为整数，显然不符要求。

现有的项目数据源为SQL Server，如何至少让效率列是数据类型为双精度小数，请各位老师指教，谢谢！

If nd1.Checked = True Then 'SQL Server

DataTables("效率").Fill("Se lect 序号 as 节拍,车位 as 工位,sum(定额秒时) as 定时,"sum(实际秒时) As 实时,sum(定额秒时) / sum(实际秒时) * 100 As 效率 From {扎包数据2} WHERE 日期 = '" & rq & "' and 车位 = '"& cw &"' GROUP BY 序号,车位","MES",True)

ElseIf nd2.Checked = True Then '内部表

DataTables("效率").Fill("Se lect 序号 as 节拍,车位 as 工位,sum(定额秒时) as 定时,sum(实际秒时) as 实时,sum(定额秒时) / sum(实际秒时) * 100 as 效率 From {扎包数据} WHERE 日期 = #" & rq & "# and 车位 = '"& cw &"' GROUP BY 序号,车位",True)

ElseIf nd3.Checked = True Then 'Access

DataTables("效率").Fill("Se lect 序号 as 节拍,车位 as 工位,sum(定额秒时) as 定时,sum(实际秒时) as 实时,sum(定额秒时) / sum(实际秒时) * 100 as 效率 From {扎包数据3} WHERE 日期 = #" & rq & "# and 车位 = '"& cw &"' GROUP BY 序号,车位","MM",True)

End If

Tables("效率").DataTable.DataCols("效率").SetFormat("0.00")

Tables("效率").AutoSizeCols()

此主题相关图片如下：表1.png

此主题相关图片如下：表2.png

[此贴子已经被作者于2016/1/5 12:35:07编辑过]

试试这样

DataTables("效率").Fill("Se lect 序号 as 节拍,车位 as 工位,sum(定额秒时) as 定时,sum(实际秒时) As 实时, Convert(Float, sum(定额秒时)) / sum(实际秒时) As 效率 From {扎包数据2} WHERE 日期 = '" & rq & "' and 车位 = '"& cw &"' GROUP BY 序号,车位","MES",True)

谢谢大红袍老师的指教，好像不行。

此主题相关图片如下：表3.png

不可能

Convert(Float, sum(定额秒时)) / sum(实际秒时) As 效率

If nd1.Checked = True Then '

ElseIf nd2.Checked = True Then '

DataTables("效率").Fill("Se lect 序号 as 节拍,车位 as 工位,sum(定额秒时) as 定时,sum(实际秒时) as 实时,sum(定额秒时) / sum(实际秒时) * 100 as 效率 From {扎包数据} WHERE 日期 >= #" & qc & "# And 日期 <= #" & qm & "# and 车位 = '"& cw &"' GROUP BY 序号,车位",True)

ElseIf nd3.Checked = True Then '

DataTables("效率").Fill("Se lect 序号 as 节拍,车位 as 工位,sum(定额秒时) as 定时,sum(实际秒时) as 实时,sum(定额秒时) / sum(实际秒时) * 100 as 效率 From {扎包数据3} WHERE 日期 >= #" & qc & "# And 日期 <= #" & qm & "# and 车位 = '"& cw &"' GROUP BY 序号,车位","MM",True)

End If

Tables("效率").DataTable.DataCols("效率").SetFormat("0.00")

Tables("效率").AutoSizeCols()

效率表是 DataTableBuilder 生成的临时表，是否有关系？

Dim dtb As New DataTableBuilder("效率")

dtb.Build()

拷贝sql语句出来测试，看报什么错

http://www.foxtable.com/help/topics/1484.htm

.NET Framework 版本：2.0.50727.8670

Foxtable 版本：2015.11.11.1

错误所在事件：

详细错误信息：

关键字 'As' 附近有语法错误。

问题找到，Se lect中间空格没有去掉，达到预期效果。谢谢大红袍老师的耐心指教，再次表示衷心感谢。

逐个删除，看哪里出问题，转换函数convert是没问题的。

主题：[求助]不同的数据源，数据类型不同（已解决）