主题：初始不加载表数据

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

msgbox(2)

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

Dim r As Row = tbl.AddNew()

magbox(3)