If siCurrentProc <> "" Then
sSql &= ",CurrentProc='" & siCurrentProc & "'" & vbCrLf
End If
If siCurrentProcProgress <> "" Then
sSql &= ",CurrentProcProgress= NULLIF('" & siCurrentProcProgress & "','')" & vbCrLf
End If
If siCurrentProcStatus <> "" Then
sSql &= ",CurrentProcStatus= NULLIF('" & siCurrentProcStatus & "','')" & vbCrLf
End If
If siCurrentProcStartDateTime <> "" Then
sSql &= ",CurrentProcStartDateTime= NULLIF('" & siCurrentProcStartDateTime & "','')" & vbCrLf
End If
sSql &= " Upddate= NULLIF('" & Now.ToString("yyyMMdd") & "','')" & vbCrLf sSql &= ",Updtime= NULLIF('" & Now.ToString("HHmmss") & "','')" & vbCrLf