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

hmilkhmily

http://www.office-cn.net/forum.php?mod=viewthread&tid=34424

[此贴子已经被作者于2005-11-30 22:31:53编辑过]

一点通

不是有人帮你解决了吗?以后提问题时不要指定某人解答,让更多的人为你提供便好的答案,谢谢你对论坛的一直支持

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

hmilkhmily

哦，我知道了，刚才因为急用，所以一时心急，看到您在线所以就。。。不好意思，下次我会注意的，也谢谢您！还有谢谢cnhbjm，数据的格式比较特殊，不会出现都不为空的，呵呵，谢谢您的关注！！

hmilkhmily

xt 不是不为空，是里面的文本等于这2个字符“xt"

一点通

http://www.office-cn.net/forum.php?mod=viewthread&tid=27751