Foxtable(狐表) → 用户栏目 → 专家坐堂 → 输入值，显示不对


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

主题：输入值，显示不对
帅哥哟，离线，有人找我吗？
baxiu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：54 积分：614 威望：0 精华：0 注册：2011/10/20 13:03:00 		输入值，显示不对  发帖心情 Post By：2011/10/25 19:48:00 [只看该作者]

在销货单输入数据，其中有4列想录入商品明细表里面，使用下面代码：

 

Dim r1 As Row =Tables("销货单").AddNew()
Dim r2 As Row = Tables("商品明细表").AddNew()

r1("商品简码") = e.Form.Controls("TextBox3").Value
r1("商品名称") = e.Form.Controls("TextBox5").Value
r1("数量") = e.Form.Controls("TextBox6").Value
r1("单价") = e.Form.Controls("TextBox7").Value
r1("录入员") = user.name

MessageBox.Show(r1("商品简码"), "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

r2("商品简码") = e.Form.Controls("TextBox3").Value
r2("商品名称") = e.Form.Controls("TextBox5").Value
r2("数量") = e.Form.Controls("TextBox6").Value
r2("单价") = e.Form.Controls("TextBox7").Value
r2("录入员") = user.name

 

输入数据后，提交是，弹出对话框， 显示数据为“0”， 而我输入的值为“111”，请问版主，这个代码需要怎么修改，谢谢

 

[此贴子已经被作者于2011-10-25 20:01:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/10/25 19:57:00 [只看该作者]

做个例子，传上来说话。

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


加好友 发短信
等级：幼狐 帖子：54 积分：614 威望：0 精华：0 注册：2011/10/20 13:03:00 		  发帖心情 Post By：2011/10/25 20:05:00 [只看该作者]

在销货单输入数据，其中有4列想录入商品明细表里面，使用下面代码：

 

Dim r1 As Row =Tables("销货单").AddNew()
Dim r2 As Row = Tables("商品明细表").AddNew()

r1("商品简码") = e.Form.Controls("TextBox3").Value
r1("商品名称") = e.Form.Controls("TextBox5").Value
r1("数量") = e.Form.Controls("TextBox6").Value
r1("单价") = e.Form.Controls("TextBox7").Value
r1("录入员") = user.name

MessageBox.Show(r1("商品简码"), "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

r2("商品简码") = e.Form.Controls("TextBox3").Value
r2("商品名称") = e.Form.Controls("TextBox5").Value
r2("数量") = e.Form.Controls("TextBox6").Value
r2("单价") = e.Form.Controls("TextBox7").Value
r2("录入员") = user.name

 

输入数据后，提交是，弹出对话框， 显示数据为“0”， 而我输入的值为“111”，请问版主，这个代码需要怎么修改，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/10/25 20:11:00 [只看该作者]

计算机是不会撒谎的，代码看不出问题来，将你的文件传上来测试。
 回到顶部
帅哥哟，离线，有人找我吗？
baxiu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：54 积分：614 威望：0 精华：0 注册：2011/10/20 13:03:00 		  发帖心情 Post By：2011/10/25 20:18:00 [只看该作者]

你好   烦请查看销货单表    第二个窗口，谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

提示密码时，输888

[此贴子已经被作者于2011-10-25 20:19:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/10/25 21:20:00 [只看该作者]

你这个代码有逻辑问题，你是绑定到字段的，当你执行下面的代码时：

 

Dim r1 As Row =Tables("销货单").AddNew()
Dim r2 As Row = Tables("商品明细表").AddNew()

 

所有文本框的内容就等于新增行的内容，而新增行此时是没有内容的，所以下面的代码无效：

r1("商品简码") = e.Form.Controls("TextBox3").Value
r1("商品名称") = e.Form.Controls("TextBox5").Value
r1("数量") = e.Form.Controls("TextBox6").Value
r1("单价") = e.Form.Controls("TextBox7").Value
r1("录入员") = user.name

 

你要用代码赋值，就不能绑定，例如：

 

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
 回到顶部
帅哥哟，离线，有人找我吗？
baxiu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：54 积分：614 威望：0 精华：0 注册：2011/10/20 13:03:00 		  发帖心情 Post By：2011/10/25 21:43:00 [只看该作者]

我要怎么修改才可以呢？
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/10/25 21:46:00 [只看该作者]

6楼不是传文件给你了吗？

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


加好友 发短信
等级：幼狐 帖子：54 积分：614 威望：0 精华：0 注册：2011/10/20 13:03:00 		  发帖心情 Post By：2011/10/25 22:06:00 [只看该作者]

版主你好，单从代码上看，我写的好像和你写的一样，你给我的我测试了，是没有问题的，我不明白，这个逻辑错误应该更改哪里？烦请能给个图例说明，谢谢

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


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/10/25 22:10:00 [只看该作者]

代码没有变，只是我那些文本框没有绑定到列而已

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