- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教思路 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13245)
-- 发布时间：2011/10/5 0:07:00
-- 请教思路
想实现这么一个功能不知怎能做，请教思路。
1 窗口中按新增记录，这是出现相关窗口（表中暂时新增行没出现）。
2 数据录入完成后，按保存（表中新增行才出现）
-- 发布时间：2011/10/5 1:14:00
--
不明白,你的意思是将窗口中的文本框的数据录入后再增加到新增行的相关列中?
这样可以做到,但是如果列数多的话,比较麻烦,是否可以这样,窗口中放一表控件,通过代码新建一个表,与你要录入的表的列名称一样,录入完成后,将此表的这一行内容,填充到你需要增加的那个表中
-- 发布时间：2011/10/5 9:43:00
--
非常简单，用文字框、数字框还有可能遇到复选框（有逻辑列的话）都不要与表绑定，输入内容完成，点击确定，确定按钮中用代码新增行，并将窗口中各控件的值分别写入到指定的字段即可，在不明白的话请上传示例文件！
-- 发布时间：2011/10/5 14:25:00
--
感谢！马上学习去。
-- 发布时间：2011/10/5 15:57:00
--
此主题相关图片如下：qq1.jpg
此主题相关图片如下：qq2.jpg
此主题相关图片如下：qq3.jpg
新建窗口的确认按钮代码
With e.Form
If .Controls("Label4").Text = "完成" AndAlso .Controls("Label9").Text = "完成" AndAlso .Controls("Label10").Text = "完成" AndAlso .Controls("Label11").Text = "完成" AndAlso .Controls("Label12").Text = "完成" Then
\'如果信息完善,则新建令号
Dim tr As Row = Tables("令号表").AddNew()
tr("客户") = .Controls("ComboBox2").Value
tr("状态") = 1
tr("令号") = .Controls("Label3").Text
tr("日期") = .Controls("DateTimePicker2").Value
tr("产品编号") = .Controls("TextBox1").Value
tr("数量") = .Controls("NumericComboBox1").Value
tr("生产组") = .Controls("ComboBox1").Value
tr("计划完工日期") = .Controls("DateTimePicker1").Value
tr("预计天数") = .Controls("Label14").Text
.Close
Else
.Controls("Label15").Text = "请完善令号信息!"
End If
End With