Thinker

Would you like to react to this message? Create an account in a few clicks or log in to continue.
Thinker

Forum for story


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

    Aueeins
    Aueeins
    呢喃的歌声


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

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

    Post by Aueeins 2011-10-03, 12:49 pm

    '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 2024-03-28, 10:23 pm