吃完就睡 2017-10-31 10:10 采纳率: 0%
浏览 1214

新手求教 function函数,不会在所有代码路径上都返回值问题

 Private Function searchRowCount()

        Dim sSQL As String

        sSQL = ""
        If SpreadSheet1.Visible = True Then
            If gsConfig.POP_PLANT = "S01" Then
                sSQL = sSQL & "SELECT * FROM LEADASSY_JIANCHA_MONITER" & vbCrLf
            Else
                sSQL = sSQL & "SELECT * FROM LEADASSY_JIANCHA_REMAIN_D2" & vbCrLf
            End If


        End If


        Dim ds As DataSet = oraDB.oraSelect(sSQL)

        If ds.Tables(0).Rows.Count <> 0 Then
            Dim i As Integer = iRowCount \ 10

            Dim j As Integer = iRowCount Mod 10

            If j > 0 Then
                i = i + 1
            End If

            Return i
        End If

    End Function
  • 写回答

1条回答 默认 最新

  • threenewbee 2017-11-01 00:42
    关注

    End Function前面加上
    Return 0

    评论

报告相同问题?

悬赏问题

  • ¥15 C#调用python代码(python带有库)
  • ¥15 矩阵加法的规则是两个矩阵中对应位置的数的绝对值进行加和
  • ¥15 活动选择题。最多可以参加几个项目?
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)
  • ¥20 怎么在stm32门禁成品上增加查询记录功能
  • ¥15 Source insight编写代码后使用CCS5.2版本import之后,代码跳到注释行里面
  • ¥50 NT4.0系统 STOP:0X0000007B