关于修改代码

林小兵　发表于：2012-01-04 23:58:07 　

Option Compare Database

Private Sub Command17_Click()
Dim ad As String
If Me.建 = "房" Then
ad = Chr(13) & Chr(10) & "     " & "问：新建房"
If Me.建 = "厂房" Then
ad = Chr(13) & Chr(10) & "     " & "问：厂房"
If Me.建 = "单位" Then
ad = Chr(13) & Chr(10) & "     " & "问：单位"
Else
ad = "地址：莆田市"
End If
Me.Text4 = Me.Text4 & Chr(13) & Chr(10) & ad & ""
End Sub
恳求你的帮助

点击下载此附件

Top

叶海峰发表于：2012-01-05 08:33:50

Private Sub Command17_Click()
    Dim ad     As String
    If Me.建 = "房" Then
        ad = Chr(13) & Chr(10) & "     " & "问：新建房"
    ElseIf Me.建 = "厂房" Then
        ad = Chr(13) & Chr(10) & "     " & "问：厂房"
    ElseIf Me.建 = "单位" Then
        ad = Chr(13) & Chr(10) & "     " & "问：单位"
    Else
        ad = "地址：莆田市"
    End If
    Me.Text4 = Me.Text4 & Chr(13) & Chr(10) & ad & ""
End Sub

或者

Private Sub Command17_Click()
    Dim ad     As String
    Select Case Me.建
    Case "房"
        ad = Chr(13) & Chr(10) & "     " & "问：新建房"
    Case "厂房", "单位"
        ad = Chr(13) & Chr(10) & "     " & "问：" & Me.建
    Case Else
        ad = "地址：莆田市"
    End Select
    Me.Text4 = Me.Text4 & Chr(13) & Chr(10) & ad & ""

End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

关于修改代码