【button上显示数量】-部分CODE

'Private Sub pShowDriverNum()
' Try
' If dgv08Case.RowCount <= 0 Then
' btnDriver.Text = "DRIVER " & "(0)"
' Exit Sub
' End If
' Dim ds As New DataSet
' Dim DsStr As String
' DsStr = "SELECT count(*) as num FROM m21RentalContractDriver WHERE RentalContract = '" & cls00Regional.String_Filter(txtCaseNumber.Text) & "' "
' ds = cls00Connection.getDataSet(DsStr, vpConnStr)
' If ds.Tables(0).Rows.Count > 0 Then
' btnDriver.Text = "DRIVER " & "(" & Val(cls00Regional.Nothing_toString(ds.Tables(0).Rows(0)!num)) & ")"
' Else
' btnDriver.Text = "DRIVER " & "(0)"
' End If
' Catch ex As Exception
' MsgBox("<f08Case.pShowDriverNum> " & ex.Message)
' End Try
'End Sub