老师：您好！ 上午的问题您给我解决了，谢谢！
我还有一个问题：我想在上面的窗口中，如果是客户要求到货日期是今天，在本窗口中提示“今天发货！”，我弄了半天夜没弄出来。并且有的代码（绿色的部分）没执行，请指教，谢谢！
If e.Table.Current IsNot Nothing AndAlso Forms("员工扫码").Opened Then '如果窗口已经打开
Dim filter As String = "清单条码编码='" & e.Table.Current("清单条码编码") & "'"
Dim wz As Integer = Tables("ddqdb").FindRow(filter)
If wz >= 0 Then
Tables("ddqdb").Position = wz
End If
Dim cb1 As WinForm.textBox = e.Form.Controls("textBox6")
Dim ts As Integer = cb1.value
Dim cb2 As WinForm.textBox = e.Form.Controls("textBox11")
Dim jt As Integer = cb2.value
e.Form.Controls("textBox1").value = ts * jt
Dim tm1 As WinForm.textBox = e.Form.Controls("datetimepicker1")
Dim cb3 As WinForm.textBox = e.Form.Controls("checkBox1")
If tm1.value = Date.Today Then
PopMessage("今天发货")
End if
Dim db As Boolean = cb3.value
If db = ture Then
MessageBox.show("此件为加急件", "提示！")
End If
End If
加好友 
发短信
Post By：2022/11/22 11:43:00 [显示全部帖子]
此主题相关图片如下：8c874420f7f18d8f8dc45c694117c26.jpg
此主题相关图片如下：55581c80662416957d969bac5664628.jpg