| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于出库的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60835) |
| -- 作者：ypp1420 -- 发布时间：2014/12/2 10:00:00 -- 关于出库的问题 如何设计“提交”按钮，把对应的数据添加的表格对应的列内，找了半天帮助没有头绪，请指教！
|
| -- 作者：Bin -- 发布时间：2014/12/2 10:03:00 -- 就是简单的为当前行赋值而已. dim r row = tables(X).current \'获取X表当前行 r(XX)=e.form.controls("textbox1").text
|
| -- 作者：ypp1420 -- 发布时间：2014/12/2 10:23:00 -- 不好意思，bin版主，我没说清楚，我的意思是我点提交的时候 表内自动添加一行，然后把上面控件内的信息自动添加到这一行的相应列内，如果表内有重复的材料名字，再录入相同的名字就只自动累加数字，不再重新建一行！请指教 谢谢！ |
| -- 作者：有点甜 -- 发布时间：2014/12/2 10:25:00 -- 一样，先查找是否有对应行，然后再赋值 http://www.foxtable.com/help/topics/0396.htm
或者参考这种例子 http://www.foxtable.com/help/topics/1454.htm
|
| -- 作者：ypp1420 -- 发布时间：2014/12/2 10:30:00 -- 谢谢！我试试！ |
| -- 作者：ypp1420 -- 发布时间：2014/12/2 10:59:00 -- 这是我刚刚编的代码，实现的我的意图，bin版主，请问这样编合理吗？ ‘在“提交button” click 事件中编辑 Dim r As Row r = Tables("区队材料领用").AddNew () r("材料名称")=e.form.controls("皮带一队材料").text r("规格型号")=e.form.controls("型号").text r("数量")=e.form.controls("领用数量").text r("使用地点")=e.form.controls("使用地点").text r("领用时间")=e.form.controls("DateTimePicker1").text |
| -- 作者：ypp1420 -- 发布时间：2014/12/2 11:01:00 -- 这个只是实现了提交，但是没有自动累加 |
| -- 作者：有点甜 -- 发布时间：2014/12/2 11:02:00 -- Dim fdr As DataRow = DataTables("区队材料领用").Find("材料名称 = \'" & e.form.controls("皮带一队材料").text & "\' and 型号 = \'" & e.form.controls("型号").text & "\'") If fdr Is Nothing Then fdr = DataTables("区队材料领用").AddNew () fdr("材料名称")=e.form.controls("皮带一队材料").text fdr("规格型号")=e.form.controls("型号").text fdr("数量")=e.form.controls("领用数量").text Else fdr("数量")+=e.form.controls("领用数量").text End If fdr("使用地点")=e.form.controls("使用地点").text fdr("领用时间")=e.form.controls("DateTimePicker1").text [此贴子已经被作者于2014-12-2 11:06:12编辑过]
|