以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于表达式如何加单双引号（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11168)
--  作者：yyzlxc
--  发布时间：2011/7/11 12:03:00
--  [求助]关于表达式如何加单双引号（已解决）

一段代码，红色的部分为表达式，应该怎样加单双引号？请各位老师指教，谢谢！！

 

Dim k1 As String ="加工费_"
Dim k2 As String ="投工_"
Dim k3 As String ="人加工费_"
Dim k4 As String ="环比_"
For j As Integer = 1 To i   
    \'DataTables("年度汇总").DataCols.Add( k3 & j , Gettype(Double))   \'动态增加列
    r.DataTable.DataCols.Add( k3 & j , Gettype(Double),"iif( k2 & j =0,null, k1 & j / k2 & j )")

    DataTables("年度汇总").DataCols.Add( k4 & j , Gettype(Double))   \'动态增加列
    DataTables("年度汇总").DataCols( k1 & j ).SetFormat("0.00")
    DataTables("年度汇总").DataCols( k2 & j ).SetFormat("0.00")
    DataTables("年度汇总").DataCols( k3 & j ).SetFormat("0.00")
    DataTables("年度汇总").DataCols( k4 & j ).SetFormat("0.00")
Next

[此贴子已经被作者于2011-7-11 12:28:36编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/7/11 12:16:00
--  

 r.DataTable.DataCols.Add( k3 & j , Gettype(Double),"iif(" &  k2 & j  & "=0,null, "  & k1 & j  & “/” &  k2 & j & ")")

 

 

 

 

 
--  作者：hhbb
--  发布时间：2011/7/11 12:17:00
--  

Dim k1 As String ="加工费_"
Dim k2 As String ="投工_"
Dim k3 As String ="人加工费_"
Dim k4 As String ="环比_"

With DataTables("年度汇总")
    For j As Integer = 1 To i    
       \'.DataCols.Add( k3 & j , Gettype(Double))   \'动态增加列 
         r.DataTable.DataCols.Add( k3 & j , Gettype(Double),"iif(" & k2 & j =0,null," & k1 & j / k2 & j & ")")

        .DataCols.Add( k4 & j , Gettype(Double))   \'动态增加列
        .DataCols( k1 & j ).SetFormat("0.00")
        .DataCols( k2 & j ).SetFormat("0.00")
        .DataCols( k3 & j ).SetFormat("0.00")
        .DataCols( k4 & j ).SetFormat("0.00")
    Next

End With
--  作者：yyzlxc
--  发布时间：2011/7/11 12:28:00
--  

谢谢两位老师，狐爸老师的为正解。再次感谢！！