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

标题：[求助]这段表达式代码如何改（已解决）

1楼

yyzlxc 发表于：2011/7/12 12:08:00

一段代码，要求对其表达式（红字部分）的结果减1，代码如何写，请各位老师指教。谢谢！！

    If j-1 = 0 Then
        r.DataTable.DataCols.Add( k4 & j , Gettype(Double))
    Else
        r.DataTable.DataCols.Add( k4 & j , Gettype(Double), k3 & j &"/"& k3 & (j-1) &"")
    End If

此段代码是生成环比，本月值k3 & j &除以上月值& k3 & (j-1) &后还应该减1，才符合要求。这个减1应该如何加上去？

[此贴子已经被作者于2011-7-12 14:13:47编辑过]

2楼

kgd815 发表于：2011/7/12 12:40:00

k3 & j &"/"& k3 & (j-1) & "" 后面的两个""有什么用呀

3楼

yyzlxc 发表于：2011/7/12 12:44:00

也不知道，但是去掉后会出错。对加单双引号，觉得规律很难掌握，老是搞不定。

[此贴子已经被作者于2011-7-12 12:46:30编辑过]

4楼

czy 发表于：2011/7/12 13:23:00

我在想是不是应该这样呢？

r.DataTable.DataCols.Add( k4 & j , Gettype(Double), k3 & j & "/" & k3 & "(" & j-1 & ")")

5楼

yyzlxc 发表于：2011/7/12 13:32:00

谢谢czy老师。但是出错，上面的代码是正确的，就是需要在以上运算结果的基础上再减1，应该怎样改？谢谢！！

6楼

狐狸爸爸 发表于：2011/7/12 13:47:00

r.DataTable.DataCols.Add( k4 & j , Gettype(Double), k3 & j &"/"& k3 & (j-1) &"-1")

7楼

yyzlxc 发表于：2011/7/12 14:13:00

ok!成功！！谢谢狐爸老师！！

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