- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求1按钮代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5781)
-- 发布时间：2010/1/13 21:59:00
-- 求1按钮代码
见附件，窗口控件输入数据后，点按钮，关联表新增行已实现，现希望把窗口4控件内容填写到新增行相关列，搞了几个小时，没搞定，望高手帮帮忙，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目18.table |
-- 发布时间：2010/1/13 23:09:00
--
谢谢各位搞定
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 |
-- 发布时间：2010/1/14 1:44:00
--
如果是我的话会这么做。
将窗口的“数量”改成“加工数量”
然后将代码改成：
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
[此贴子已经被作者于2010-1-14 1:44:17编辑过]
-- 发布时间：2010/1/14 8:29:00
--
多谢C版，这么晚还在为我改作业，有学到一招，再次感谢。
-- 发布时间：2024/4/21 17:20:00
--
请问这是用的哪种语言呀，我学到了按钮可是比如，设置一个查找按钮，要输入什么样的代码才能绑定成查找呀，请指点谢谢