[求助]关于一个赋值的问题

cake_super

Private Sub Command146_Click()
Dim prj As String
Dim cn As String
Dim la As String
Dim rn As String
la = Me.LiftAddress
cn = Me.ContractNo
prj = Me.BasicInfo_Project
rn = Me.RegisterNo
Forms![safetyinspection]![Project] = prj
Forms![safetyinspection]![RegisterNo] = rn
Forms![safetyinspection]![Address] = la
Forms![safetyinspection]![ContractNo] = cn
DoCmd.OpenForm "SafetyInspection", acNormal
End Sub



但是一定要在本窗体的liftaddress,contractno,basicinfo_project,registerno值为非空的情况下才能传递，如果其中有一个空的就会报错，能不能解决这个问题？？

sgrshh29

先判断本窗体的liftaddress,contractno,basicinfo_project,registerno有无空，不能吗？

cake_super

我就是想不管它是不是空，都直接赋值过去。。。你的意思是先判断这些变量是否为空？空的就不要赋值，非空的再赋值？？？？

cake_super

我觉得这样可以。。。但是好像比较麻烦，不知道有没有简便的方法。。谢谢

sgrshh29

因为不能将null赋予string型变量，除非你另用其它办法。

cake_super

有没有别的办法呢？？？请教一下

sgrshh29

不要用中间变量，直接把文本框的内容赋予目标文本框。

cake_super

谢谢，不用中间变量就可以避免string，即时是空的文本框也可以赋值了。。。谢谢