此主题相关图片如下：未命名.jpg

这个是神马情况？

 问题已经解决，把and 改成AndAlso 就可以了，但是这是为什么呢？

DataTables("包装").load()
DataTables("包装").DeleteFor("[完成数量] = 0")
Dim t As Date  = e.Form.Controls("时间").Value
Dim cp As String = e.Form.Controls("产品名称").Value
Dim sl As Double = e.Form.Controls("完成数量").Value
Dim dr As DataRow = DataTables("包装").Find("时间 = \'" & t & "\' And 产品名称 = \'" & cp & "\'")
If dr IsNot Nothing And dr("完成数量") + sl >= 0 Then
    dr("完成数量") = dr("完成数量") + sl
    e.Form.Controls("完成数量").Value = Nothing
ElseIf dr Is Nothing  And sl > 0 Then
    dr = DataTables("包装").AddNew()
    dr("时间") = t
    dr("产品名称") = cp
    dr("完成数量") = sl
    e.Form.Controls("完成数量").Value = Nothing
Else
    MessageBox.Show("请检查下单数量是否正确!","温馨提示")
    e.Form.Controls("完成数量").Value = Nothing
End If
DataTables("包装").Save()

上述代码换成下面就没有问题

DataTables("包装").load()
DataTables("包装").DeleteFor("[完成数量] = 0")
Dim t As Date  = e.Form.Controls("时间").Value
Dim cp As String = e.Form.Controls("产品名称").Value
Dim sl As Double = e.Form.Controls("完成数量").Value
Dim dr As DataRow

if sl > 0 Then
    dr = DataTables("包装").AddNew()
    dr("时间") = t
    dr("产品名称") = cp
    dr("完成数量") = sl
    e.Form.Controls("完成数量").Value = Nothing
Else
    MessageBox.Show("请检查下单数量是否正确!","温馨提示")
    e.Form.Controls("完成数量").Value = Nothing
End If
DataTables("包装").Save()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

我贴出来的两段代码麻烦看下，第一段出问题，第二段就没有问题的

非常感谢，我做了个例子，麻烦你看下

不是这里的问题  日期＃ ＃  \'\'  都可以的，我试了