共4 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]关于表达式如何加单双引号（已解决）

1楼

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编辑过]

2楼

狐狸爸爸 发表于：2011/7/11 12:16:00

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

3楼

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

4楼

yyzlxc 发表于：2011/7/11 12:28:00

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

共4 条记录, 每页显示 10 条, 页签: [1]