主题：初始不加载表数据

销售订单表和销售明细表初始不加载任何表数据，BeforeLoadOuterTable设置如下：

If e.DataTableName = "销售订单" Then
    e.SelectString = "Select * F rom {销售订单} Where [_Identify] Is Null"
End If

If e.DataTableName = "销售明细表" Then
    e.SelectString = "Select * F rom {销售明细表} Where [_Identify] Is Null"
End If

设置以后新增订单添加销售明细的时候程序无响应

添加明细按钮代码：

Dim sts() As String = {"dropbox3","DropBox1","DropBox2","NumericComboBox2"}

For Each st As String In sts

    If e.Form.Controls(st).value Is Nothing Then

        MessageBox.show("Please enter the name,phone number,Model and quantity !","Remind")

        Return

    End If

Next

Dim tbl As Table = Tables("销售明细表")

Dim r As Row = tbl.AddNew()

r("订单号") = e.Form.Controls("TextBox2").Text

r("日期") = e.Form.Controls("datetimepicker1").Text

r("客户名称") = e.Form.Controls("DropBox3").Text

r("客户电话") = e.Form.Controls("DropBox1").Text

r("产品型号") = e.Form.Controls("dropbox2").Text

r("销售单价") = e.Form.Controls("TextBox5").Text

r("数量") = e.Form.Controls("NumericComboBox2").Text

If e.Form.Controls("NumericComboBox1").Value <> 0 Then

    Dim r1 As Row = Tables("订单出库明细表").AddNew

    r1("提货日期") = e.Form.Controls("datetimepicker1").Text

    r1("订单号") = e.Form.Controls("TextBox2").Text

    r1("产品型号") = e.Form.Controls("dropbox2").Text

    r1("数量") = e.Form.Controls("NumericComboBox2").Text

    r1("已提数量") = e.Form.Controls("NumericComboBox1").Text

    'r1.Save

End If

e.Form.Controls("DropBox2").Text = ""

e.Form.Controls("textbox5").Text = ""

e.Form.Controls("NumericComboBox2").Value = Nothing

e.Form.Controls("未提数量").Text = ""

窗口Afterload代码：

If User.Group <> "经理" Then

    e.Form.Controls("订单修改").Visible = False

    e.Form.Controls("Receipt").Visible = False

    e.Form.Controls("Delivery").Visible = False

    e.Form.Controls("Receipt").Visible = False

    e.Form.Controls("textbox9").Enabled = False

End If

Dim xzcp As WinForm.Button = e.Form.Controls("新增产品")

xzcp.Enabled = False

Dim bc As WinForm.Button = e.Form.Controls("保存")

bc.Enabled = False

e.Form.Controls("Table3").Visible = False

e.Form.Controls("单价成本").Visible = False

e.Form.Controls("Position").Visible = False

DataTables("销售明细表").AddUserStyle("a", Color.Red, Color.White)

DataTables("销售订单").AddUserStyle("a", Color.Red, Color.White)

Tables("销售主界面_Table2").Filter =  "1=2"

Tables("销售主界面_table2").Sort = "订单号 DESC,日期 DESC"

With Tables("销售明细表")

    Tables("销售明细表").Filter = "1=2"

    For Each r As Row In Tables("销售明细表").Rows

        If r IsNot Nothing Then

            .Cols("数量").GrandTotal = True

            .Cols("金额").GrandTotal = True

            .GrandTotal = True

        Else

            .Cols("数量").GrandTotal = True

            .Cols("金额").GrandTotal = True

            .GrandTotal = False

        End If

    Next

End With

Tables("销售明细表").Cols("单价成本").Visible = False

Tables("销售明细表").Cols("合计成本").Visible = False

Tables("销售主界面_Table2").ExtendLastCol = True

Tables("销售明细表").ExtendLastCol = True

之前不设置BeforeLoadOuterTable的时候正常，什么原因会引起这个问题？

按钮可以点击吗？下面提示框能不能弹出来？

可以弹出来，我今天没有改任何东西重新测试又可以了，真奇怪！

另外一个问题是在不加载订单数据的情况下，如何实现如上图所示在输入客户信息的时候右侧表中能出现客户购买记录。

这个筛选表示不显示任何数据，也就是这个表一行数据都没有，下面还遍历有何意义？

您想怎么处理？

我想有没有效率更高的方法

最合适的做法就是需要操作什么数据就加载什么数据，按需加载