以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数值问题请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98386)
--  作者：cuicuibing
--  发布时间：2017/3/29 8:38:00
--  数值问题请教
   Dim Tbl As Table = Tables("订单表并列_Table1")
   Dim cur1 As String
    Dim cur As Double
    cur = tbl.Current("订单数量")
    cur1= tbl.current("产品编码")
    Tables("订单表并列_Table2").Fill("Sel ect * From {工序库明细主表} where  物料编码 = \'" & cur1 & "\'","shenchan" ,True)
    Tables("订单表并列_Table2").SetColVisibleWidth("物料编码|60|部件名称|60|部件规格|80|部件量|55|编码|70")
    Tables("订单表并列_Table2").Cols.Remove("物料编码")
    Tables("订单表并列_Table2").Cols.Remove("编码")
    DataTables("订单表并列_Table2").DataCols.Add("部件总量", Gettype(Double), "[部件量] *  \'" & cur1 & "\' ")

提示错误：无法设置列“部件总量”的表达式，原因，无法在system.double和system.string上执行 *。

部件量  类型为double ， 订单数量  类型也是  double

这里应该如何设置的

[此贴子已经被作者于2017/3/29 8:38:49编辑过]
--  作者：wyz20130512
--  发布时间：2017/3/29 9:12:00
--  
Dim Tbl As Table = Tables("订单表并列_Table1")
   Dim cur1 As String
    Dim cur As Double
    cur = tbl.Current("订单数量")
    cur1= tbl.current("产品编码")
    Tables("订单表并列_Table2").Fill("Sel ect * From {工序库明细主表} where  物料编码 = \'" & cur1 & "\'","shenchan" ,True)
    Tables("订单表并列_Table2").SetColVisibleWidth("物料编码|60|部件名称|60|部件规格|80|部件量|55|编码|70")
    Tables("订单表并列_Table2").Cols.Remove("物料编码")
    Tables("订单表并列_Table2").Cols.Remove("编码")
    DataTables("订单表并列_Table2").DataCols.Add("部件总量", Gettype(Double), "[部件量] * " & cur)
--  作者：有点蓝
--  发布时间：2017/3/29 9:13:00
--  
去掉单引号

DataTables("订单表并列_Table2").DataCols.Add("部件总量", Gettype(Double), "[部件量] * " & cur)