afterloadDim rkqssj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim rkjzsj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim tjrkzq As WinForm.TextBox = e.Form.Controls("TextBox1")
rkqssj.Value = Date.Today.AddDays(-30)
rkjzsj.Value = Date.Today
Dim t1 As TimeSpan = rkjzsj.value.AddDays(1) - rkqssj.Value
tjrkzq.text = "入库周期共计:" & t1.days & "天"
DateTimePicker1的ValueChanged代码
Dim rkqssj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim rkjzsj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim tjrkzq As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t1 As TimeSpan = rkjzsj.value.AddDays(1) - rkqssj.Value
tjrkzq.text = "入库周期共计:" & t1.days & "天"
可是打开窗口提示
错误所在事件:窗口,仓库明细,DateTimePicker1,ValueChanged
详细错误信息:
未设置对象变量或 With 块变量。