主题：[求助]录入问题

将这段代码放到DataParse　事件中，这段代码我改过了，你写错了，然后删除原

Dim a As WinForm.DateTimePicker
a = e.Form.Controls("发货日期")

With e.Form.Controls("发货日期")
If .value = Nothing Then
    a.ReadOnly = BooleanEnum.True
Else
a.ReadOnly = BooleanEnum.default
   
End If
End With '''发货日期将锁定非空值,可以使得编号日期全部正确