請教一下，數(shù)據(jù)有數(shù)字改為文本，表達式該如何修改。

dlack

請教各位，我想將下面紅色的“0”改成帶有字母的數(shù)據(jù)，比如說“E0”，應(yīng)該如何修改。在字段設(shè)置里面"請購單ID”為文本。

Private Sub Form_Open(Cancel As Integer)
    Dim stID As String   
    If IsNull(Me.OpenArgs) Then
        stID = CLng(Nz(DMax("CLng([請購單ID])", "請購單"), 0)) + 1
       Else
        stID = Me.OpenArgs
        End If
   Set mDAOTransForm = New DAOTransForm
    mDAOTransForm.InitForm Me, "Select * From 請購單 Where 請購單ID='" & stID & "'", _
        Me.frmsub, "Select * From 請購單明細 Where 請購單ID='" & stID & "'"   
    If mDAOTransForm.FormDataMode Then
        Me.Caption = "添加請購單"
        Me.請購單ID.DefaultValue = stID
    Else
        Me.Caption = "編輯請購單"
    End If        
    Me.frmsub.Form.請購單ID.DefaultValue = stID
    Me.frmsub.Requery      
End Sub

Henry D. Sy

傳例子

aslxt

如果字段中不包含非數(shù)字的字符這一步應(yīng)該沒有問題：
Nz(DMax("CLng([請購單ID])", "請購單"), “E0”)
但是如果字段中包含非數(shù)字的字符，CLng可能就會出問題。
個人覺得：你應(yīng)該把編號（請購單ID）的規(guī)定列舉出來，比如說“E0001"開始，到"E0002"...,一直到"E9999"，這里第一位的E表示單位或部門或單據(jù)類別，總之，只用一位英文字符，后面的4位為順序號。只有把你的想法說出來，才好解決問題

roych

貌似用Val([請購單ID])會好些。

aslxt

Val對于第一個字符為非數(shù)字字符會出現(xiàn)問題，例如“0001A"可以轉(zhuǎn)為1，但是”A0001“就發(fā)生錯誤

dlack

aslxt 發(fā)表于 2012-4-6 16:25
如果字段中不包含非數(shù)字的字符這一步應(yīng)該沒有問題：
Nz(DMax("CLng([請購單ID])", "請購單"), “E0”)
但 ...

我是想讓請購單號中包含字母，比如你說的“E1~E999”一樣，我上傳了附件，能幫忙解決一下嗎？謝謝了！

aslxt

...
Me.請購單ID.DefaultValue = """" & stID & """"
...
Me.frmsub.Form.請購單ID.DefaultValue = """" & stID & """"
...

dlack

aslxt 發(fā)表于 2012-4-6 21:16
...
Me.請購單ID.DefaultValue = """" & stID & """"
...

成功了，非常感謝你的熱心和耐心，aslxt ！

aslxt

不客氣，我不過是在鍛煉耐力的同時測試一下表達能力{:soso_e113:}

aslxt

如果流水號不會超過99的話，可改為下面代碼：
...
If IsNull(Me.OpenArgs) Then
        stID = "s" & Format(Right(Nz(DMax("請購單ID", "請購單"), "s00"), 2) + 1, "00")
Else
        stID = Me.OpenArgs
End If
...
如果流水號不會超過9999的話，可改為下面代碼：
...
If IsNull(Me.OpenArgs) Then
        stID = "s" & Format(Right(Nz(DMax("請購單ID", "請購單"), "s0000"), 2) + 1, "0000")
Else
        stID = Me.OpenArgs
End If
...