Thinker

Personal e-notepad


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

    Aueeins
    Aueeins
    水面上的小草

    帖子数 : 173
    积分 : 3539
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

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

    Post by Aueeins on 03/10/11, 05:49 am

    '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

      Current date/time is 05/06/20, 08:35 pm