以下是引用wyz20130512在2017/3/31 19:49:00的发言：
加上上述代码试试，可能是系统日期格式冲突。
我这边测试没问题！
[此贴子已经被作者于2017/3/31 19:57:10编辑过]
谢谢，还有一个问题：
With Tables("订单表")
Dim f As String = "[日期] = #" & Date.Today().AddDays(1) & "#"
Dim dr As DataRow = .DataTable.Find(f)
If dr IsNot Nothing Then
.Filter = f
Dim lb17 As Winform.label
lb17 = e.Form.controls("label17")
lb17.text = Tables("订单表").Rows.Count()
Else
Dim Result As DialogResult
Result = MessageBox.Show("明天还没有数据,是否要增加新的订单", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim r As Row = .AddNew()
r("日期") = Date.Today.AddDays(1)
.Filter = f
Dim lb17 As Winform.label
lb17 = e.Form.controls("label17")
lb17.text = Tables("订单表").Rows.Count()
Else
e.Sender.Checked = False
End If
End If
End With
代码作用是： 点击一个单选按钮，如果明天没有订单，就会提示是否要新增。 如果点 否，就会取消单选。 现在的问题是：
按了否后，会出现二次提示： "明天还没有数据,是否要增加新的订单?"
加好友 
发短信
Post By：2017/3/31 18:32:00 [显示全部帖子]
