标题：求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

如果是我的话会这么做。
将窗口的“数量”改成“加工数量”
然后将代码改成：

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()
For Each Va as string In Values
    r(Va) = e.Form.Controls(Va).text
Next

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

请问这是用的哪种语言呀，我学到了按钮可是比如，设置一个查找按钮，要输入什么样的代码才能绑定成查找呀，请指点谢谢