主题：求1按钮代码

见附件，窗口控件输入数据后，点按钮，关联表新增行已实现，现希望把窗口4控件内容填写到新增行相关列，搞了几个小时，没搞定，望高手帮帮忙，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目18.table

谢谢各位搞定
Dim Values As String() = {"日期","姓名","数量","设备"}
For Each Va as string In Values
    with e.form
        if .Controls(va).value Is Nothing then
            MessageBox.Show(va &" 资料不全,请录入!", "提示")
            Return
        end if
    end with
Next
Dim r As Row = Tables("表B.表C").Rows.AddNew()
r("日期") = Forms("窗口1").Controls("日期").text
r("加工数量") = Forms("窗口1").Controls("数量").text
r("设备") = Forms("窗口1").Controls("设备").text
r("姓名") = Forms("窗口1").Controls("姓名").text

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目18.table

多谢C版，这么晚还在为我改作业，有学到一招，再次感谢。