Question

（我不确定在这里问我的问题是否合适，因为解决方案很简单，但我不知道如何解决它）

我们有一个lotusscript代理，我被分配来改进该代理的功能。但问题是我只有一段代码，代码是这样的：

（代码已编辑）

Dim nYes As Integer 'new add 
Dim nNo As String 'new add
nYes = 0 'new add
nNo = 0 'new add
Set view = sdb.getview("ExportToExcel")
Call view.refresh   
For i = 9 To thisRow-1
    For j = 3 To thisCol-1 Step 2
        tmpstr = thisSheet.cells(6,j).value+"xxx"+thisSheet.cells(i,1).value
        Set thisDoc = view.getdocumentbykey(tmpstr)
        thisSheet.cells(i,j) = "No"
     '  nNo = nNo + 1 'commented this line
     '   thisSheet.Cells(i,j) = nNo 'commented this line
        If thisDoc Is Nothing Then
        Else
            If Format(thisDoc.ExpiryDate(0),"YYYYMM") >= thisStartDate And  Format(thisDoc.ExpiryDate(0),"YYYYMM") <= thisEndDate Then
            thisSheet.cells(i,j) = "Yes"
            nYes = nYes + 1 'new add
            'Suppose row30 and column30 to show the total of yes
            thisSheet.Cells(30,30) = nYes 'new edit in this line
            End If
       End If
    Next
Next 

' the result returns like this
'1
'3
'5
'7
'9
'...

我读了代码，我认为这段代码是关于做一些比较（for循环部分），如果值匹配，则显示＆＃34;是＆＃34;否则显示＆＃34;否＆＃34;。我必须计算出多少是和多少没有。

我假设变量声明和设置正确，因为此代理已在应用程序中使用，我们必须在代理中进行一些增强。因此，我可能会专注于我拥有的代码。

我对lotusscript不是很熟悉，我写了下面的代码，试图找出有多少是（s）和多少没有（。）

Answer 1

您只想计算是和否结果的数量？这样做：

dim nYes as Integer
dim nNo as Integer
nYes = 0
nNo = 0

然后在适当的位置添加nYes = nYes + 1和nNo = nNo + 1。

当循环完成时，变量nYes和nNo将具有您的计数。

当然，接下来你需要处理的是问题＆＃34;现在我已经掌握了这些问题，我该怎么处理它们？＆＃34;我无法帮助你，因为你还没有给出任何真正要求的指示。

在lotusscript中计算

1 个答案: