还不行啊，各位大虾在帮忙看看

cnhbjm

不知道你的"xt"是什么意思？是有数据吗（不为空）

程序的逻辑有没有问题？4，5，6，。。。。1都不为空怎么办？

如果是“不为空”用下一段试试，我试过，能通过：

Private Sub 票价计算_Enter()
If Not IsNull(Me.carr4) Then
   Me!票价计算 = Me.票价计算 & " " & Me.汇率 & " " & Me.fac4 & Me.fac5 & Me.fac6 & Me.fac7 & Me.fac8
Else
   If Not IsNull(Me.carr5) Then
      Me!票价计算 = Me.票价计算 & " " & Me.汇率 & " " & Me.fac5 & Me.fac6 & Me.fac7 & Me.fac8 & Me.fac9
   Else
      If Not IsNull(Me.carr6) Then
         Me!票价计算 = Me.票价计算 & " " & Me.汇率 & " " & Me.fac6 & Me.fac7 & Me.fac8 & Me.fac9 & Me.fac10
      Else
         If Not IsNull(Me.carr7) Then
            Me!票价计算 = Me.票价计算 & " " & Me.汇率 & " " & Me.fac7 & Me.fac8 & Me.fac9 & Me.fac10 & Me.fac11
         Else
            If Not IsNull(Me.carr8) Then
               Me!票价计算 = Me.票价计算 & " " & Me.汇率 & " " & Me.fac8 & Me.fac9 & Me.fac10 & Me.fac11 & Me.fac12
            Else
               If Not IsNull(Me.carr9) Then
                  Me!票价计算 = Me.票价计算 & " " & Me.汇率 & " " & Me.fac9 & Me.fac10 & Me.fac11 & Me.fac12 & Me.fac13
               Else
                  If Not IsNull(Me.carr10) Then
                     Me!票价计算 = Me.票价计算 & " " & Me.汇率 & " " & Me.fac10 & Me.fac11 & Me.fac12 & Me.fac13
                  Else
                     If Not IsNull(Me.carr11) Then
                        Me!票价计算 = Me.票价计算 & Me.汇率 & Me.fac11 & Me.fac12 & Me.fac13
                     Else
                        Me!票价计算 = Me.票价计算 & " " & Me.汇率 & " " & Me.签注2
                     End If
                  End If
               End If
            End If
         End If
      End If
   End If
End If
End Sub