Office中国论坛/Access中国论坛

标题: 还不行啊，各位大虾在帮忙看看 [打印本页]

作者: hmilkhmily 时间: 2005-12-1 05:40
标题: 还不行啊，各位大虾在帮忙看看
http://www.office-cn.net/forum.php?mod=viewthread&tid=34424

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

作者: 一点通 时间: 2005-12-1 06:10
不是有人帮你解决了吗?以后提问题时不要指定某人解答,让更多的人为你提供便好的答案,谢谢你对论坛的一直支持

作者: cnhbjm 时间: 2005-12-1 06:16
不知道你的"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 时间: 2005-12-1 06:22
哦，我知道了，刚才因为急用，所以一时心急，看到您在线所以就。。。不好意思，下次我会注意的，也谢谢您！还有谢谢cnhbjm，数据的格式比较特殊，不会出现都不为空的，呵呵，谢谢您的关注！！

作者: hmilkhmily 时间: 2005-12-1 06:37
xt 不是不为空，是里面的文本等于这2个字符“xt"

作者: 一点通 时间: 2005-12-1 06:56
http://www.office-cn.net/forum.php?mod=viewthread&tid=27751

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)