主题：请教思路

想实现这么一个功能不知怎能做，请教思路。

  1 窗口中按新增记录，这是出现相关窗口（表中暂时新增行没出现）。

  2 数据录入完成后，按保存（表中新增行才出现）

 

不明白,你的意思是将窗口中的文本框的数据录入后再增加到新增行的相关列中?

这样可以做到,但是如果列数多的话,比较麻烦,是否可以这样,窗口中放一表控件,通过代码新建一个表,与你要录入的表的列名称一样,录入完成后,将此表的这一行内容,填充到你需要增加的那个表中

非常简单，用文字框、数字框还有可能遇到复选框（有逻辑列的话）都不要与表绑定，输入内容完成，点击确定，确定按钮中用代码新增行，并将窗口中各控件的值分别写入到指定的字段即可，在不明白的话请上传示例文件！

感谢！马上学习去。

此主题相关图片如下：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