原文如下:If DataEnvironment1.rsCommand1.State <> adStateClosed Then DataEnvironment1.rsCommand1.Close '如果打开,则关闭 End IfDataEnvironment1.rsCommand1.Open "select * from sz "If IsNull(DataEnvironment1.rsCommand1.Fields("着色")) Then If DataEnvironment1.rsCommand1.State <> adStateClosed Then DataEnvironment1.rsCommand1.Close '如果打开,则关闭 End If dd = ", Iif([dkzl].[已缴期限]>=0,'白色',Iif([dkzl].[已缴期限]<0 And [dkzl].[已缴期限]>=-2,'黄色',Iif([dkzl].[已缴期限]<-2,'红色'))) AS 颜色" DataEnvironment1.rsCommand1.Open "update sz set 着色 ='" & dd & "'"End If
DataEnvironment1.rsCommand1.Open "update sz set 着色 ='" & replace(dd,"'","''") & "'"
DataEnvironment1.rsCommand1.Close '如果打开,则关闭
End IfDataEnvironment1.rsCommand1.Open "select * from sz "If IsNull(DataEnvironment1.rsCommand1.Fields("着色")) Then
If DataEnvironment1.rsCommand1.State <> adStateClosed Then
DataEnvironment1.rsCommand1.Close '如果打开,则关闭
End If
dd = ", Iif([dkzl].[已缴期限]>=0,'白色',Iif([dkzl].[已缴期限]<0 And [dkzl].[已缴期限]>=-2,'黄色',Iif([dkzl].[已缴期限]<-2,'红色'))) AS 颜色"
DataEnvironment1.rsCommand1.Open "update sz set 着色 ='" & dd & "'"End If