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
新手求教 function函数,不会在所有代码路径上都返回值问题
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答
悬赏问题
- ¥15 关于#hadoop#的问题
- ¥15 (标签-Python|关键词-socket)
- ¥15 keil里为什么main.c定义的函数在it.c调用不了
- ¥50 切换TabTip键盘的输入法
- ¥15 可否在不同线程中调用封装数据库操作的类
- ¥15 微带串馈天线阵列每个阵元宽度计算
- ¥15 keil的map文件中Image component sizes各项意思
- ¥20 求个正点原子stm32f407开发版的贪吃蛇游戏
- ¥15 划分vlan后,链路不通了?
- ¥20 求各位懂行的人,注册表能不能看到usb使用得具体信息,干了什么,传输了什么数据