Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何实现窗口的数据显示


  共有2371人关注过本帖树形打印复制链接

主题：[求助]如何实现窗口的数据显示
帅哥哟，离线，有人找我吗？
longkan88
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		[求助]如何实现窗口的数据显示  发帖心情 Post By：2015/11/5 12:22:00 [只看该作者]

点击OK后，文本框里的数据在新增行的对应列显示。

 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：2015/11/5 12:22:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20151105122040.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：2015/11/5 16:33:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
longkan88
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：46 积分：405 威望：0 精华：0 注册：2015/10/31 17:27:00 		  发帖心情 Post By：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）请问错误在什么地方呢？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/6 14:34:00 [只看该作者]


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02344 秒, 4 次数据查询