一个判断!在线!

Question

Dim JJ_qian4date As DataIf J_qian1.Text = "" ThenJJ_qian1date = ""ElseJJ_qian1date = J_qian1date.Value
 
End If
J_qian1.Text 是一个文本框
j_qian1date.value 是用的DTPicker我想要的效果是!
当J_qian1.Text为空的时候添加j_qian1date.value到数据库为空
J_qian1.Text不为空的时候添加j_qian1date.value的值到数据库

Answer 1

Dim JJ_qian4date As String
JJ_qian1date =iif(trim(J_qian1.text)="","",J_qianldate.value)

Answer 2

直接JJ_qian1date = J_qian1date.Value不就行了

Answer 3

数据库里保存的是时间类型!
ASSESS