主题：未将对象应用设置到对象的实例……求解！

   代码如下：

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("零售单编号") = Nothing
    Else
        Dim mn As WinForm.Form = Forms("零售录入窗口")
        If mn.Opened = True Then
            Dim mb As DataRow
            Dim mv As String = mn.Controls("Label2").Text
            Dim mc As String
            mv = mv.Trim()
            mb = DataTables("权限设置").Find("账号名 = '" & mv & "'")
            If mb IsNot Nothing Then
                mc = mb("账号编码")
                Dim bh As String = mc & "-" & Format(e.NewValue,"yyyyMMdd") & "-" '取得编号的8位前缀
                If e.DataRow("零售单编号").StartsWith(bh) = False
                    Dim max As String
                    Dim idx As Integer
                    max = e.DataTable.Compute("Max(零售单编号)","日期 = #" & e.NewValue  & "# And [_Identify] <> " & e.DataRow("_Identify") ) '取得该天的最大编号
                    If max > "" Then '如果存在最大编号
                        idx = CInt(max.Substring(14,3)) + 1 '获得最大编号的后三位顺序号,并加1
                    Else
                        idx = 1 '否则顺序号等于1
                    End If
                    e.DataRow("零售单编号") = bh & Format(idx,"000")
                End If
            End If
        End If
    End If
End If

 

我在零售录入窗口修改日期之后，有时候会弹出“未将对象应用设置到对象的实例”的错误，并且设置了默认日期，并增加行之后，零售单编号会出现重复。但是有的时候又一切正常，没有丝毫问题，求解是因为什么原因？

谢谢，已找到问题所在，不是这段代码出了问题，而是另外一段！

此外，还有另外一个问题想问一下。

那就是，新增行之后，上一行数据是否已经自动保存到数据库中，此时在另外一台电脑中同步表，是否能看到保存的数据？

 

如果新增行之后，或者修改行的数据之后，数据并没有立即保存到数据库中，那么怎么才可以只保存已经修改的行，毕竟如果保存整个表的话，实在是太耗资源了。

哦，也就是说，就算代码设置的是保存整个表，但是如果表只修改了一行，它也只会保存修改的这一行，不会多余浪费资源是吧？

谢谢，还有一个问题求解。

又有几个问题请教~.~。

谢谢，两个问题都已解决！

还有一个问题，我找了很久，一直都没找到一个好的方法解决。

在一个窗口中，我插入了一个筛选树，然后又有一个条件筛选按钮，如何可以实现在筛选树中进行一次筛选之后，在其结果上使用条件筛选按钮进行第二次筛选？

在不将筛选树替换为加载树的情况下。

谢谢，很好用~

连带着另外一个困扰已久的问题也得到了启发，有了解决方案~

Dim abcd As String = e.Form.Controls("TextBox1").text
Dim abce As String = e.Form.Controls("TextBox2").text
Dim abcr As String = e.Form.Controls("ComboBox1").text
Dim fl1 As String
Dim fl2 As String
Dim fl3 As String
fl1 = iif(abcd > "", "( " 单位编号 = '" & abcd & "'" )", "1=1")
fl2 = iif(abce > "", "(" 商品名称 = '" & abce & "'")", "2=2")
fl3 = iif(abcr > "", "(" 收银员 = '" & abcr & "'")", "3=3")

 

 

头疼，求助，以上一段代码的符号该怎么修改？