16,549
社区成员
发帖
与我相关
我的任务
分享
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
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
else
return -1 '其他情况返回-1
End If
Dim i As Integer
Dim sSQL As String
在If 中对i 进行赋值,最外层再Return i;