主题：求1按钮代码

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

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