一段代码,红色的部分为表达式,应该怎样加单双引号?请各位老师指教,谢谢!!
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编辑过]