- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何实现窗口的数据显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76799)
-- 发布时间：2015/11/5 12:22:00
-- [求助]如何实现窗口的数据显示
点击OK后，文本框里的数据在新增行的对应列显示。
-- 发布时间：2015/11/5 12:22:00
--
此主题相关图片如下：qq截图20151105122040.jpg
-- 发布时间：2015/11/5 14:36:00
--
Dim r As Row = Tables("表A").AddNew
r("第一列") = e.Form.Controls("TextBox1").Text
r("第二列") = e.Form.Controls("TextBox2").Text
r.Save
-- 发布时间：2015/11/5 16:33:00
--
-- 发布时间：2015/11/6 14:07:00
--
红袍大哥，我想了一种办法来实现功能，你看下代码上有什么缺陷吗？我还是使用粗体表示
If e.Form.Controls("DateTimePicker1").text = "" Or e.Form.Controls("TextBox2").text = "" Or e.Form.Controls("TextBox3").text = "" Or e.Form.Controls("DateTimePicker2").text = "" Or e.Form.Controls("TextBox6").text = "" Or e.Form.Controls("TextBox7").text = ""
MessageBox.Show("标记 (*) 处不能为空!请正确录入信息!","提示")
Else
Dim r As Row = Tables("违章处理").AddNew
r("处理时间") = e.Form.Controls("DateTimePicker1").text
r("车牌号") = e.Form.Controls("TextBox2").text
r("发动机号") = e.Form.Controls("TextBox3").text
r("审车时间") = e.Form.Controls("DateTimePicker2").text
r("完成时间") = e.Form.Controls("DateTimePicker3").text
r("处理情况") = e.Form.Controls("TextBox5").text
r("产生费用") = e.Form.Controls("TextBox6").text
r("违章情况") = e.Form.Controls("TextBox7").text
r("业务员") = User.Name
r("客户电话") = Tables("客户数据总表").Text(Tables("客户数据总表").RowSel - 8,Tables("客户数据总表").ColSel)
e.Form.Close()
End If
理论上是没有问题的，不过运行时提示（索引超出范围。必须为非负值并小于集合大小。参数名: index）请问错误在什么地方呢？
-- 发布时间：2015/11/6 14:34:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=76726&authorid=0&page=0&star=1