主题：请教思路

此主题相关图片如下：qq1.jpg


此主题相关图片如下：qq2.jpg


此主题相关图片如下：qq3.jpg

新建窗口的确认按钮代码

With e.Form
    If .Controls("Label4").Text = "完成" AndAlso .Controls("Label9").Text = "完成" AndAlso .Controls("Label10").Text = "完成" AndAlso .Controls("Label11").Text = "完成" AndAlso .Controls("Label12").Text = "完成"  Then
        '如果信息完善,则新建令号
        Dim tr As Row = Tables("令号表").AddNew()
        tr("客户") = .Controls("ComboBox2").Value
        tr("状态") = 1
        tr("令号") = .Controls("Label3").Text
        tr("日期") = .Controls("DateTimePicker2").Value
        tr("产品编号") = .Controls("TextBox1").Value
        tr("数量") = .Controls("NumericComboBox1").Value
        tr("生产组") = .Controls("ComboBox1").Value
        tr("计划完工日期") = .Controls("DateTimePicker1").Value
        tr("预计天数") = .Controls("Label14").Text
        .Close
    Else
        .Controls("Label15").Text = "请完善令号信息!"
    End If
End With