- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 输入值，显示不对 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13745)
-- 发布时间：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 19:57:00
--
做个例子，传上来说话。
-- 发布时间：2011/10/25 20:05:00
--
-- 发布时间：2011/10/25 20:11:00
--
计算机是不会撒谎的，代码看不出问题来，将你的文件传上来测试。
-- 发布时间：2011/10/25 20:18:00
--
你好 烦请查看销货单表 第二个窗口，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
提示密码时，输888
-- 发布时间：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 |
-- 发布时间：2011/10/25 21:43:00
--
我要怎么修改才可以呢？
-- 发布时间：2011/10/25 21:46:00
--
6楼不是传文件给你了吗？
-- 发布时间：2011/10/25 22:06:00
--
版主你好，单从代码上看，我写的好像和你写的一样，你给我的我测试了，是没有问题的，我不明白，这个逻辑错误应该更改哪里？烦请能给个图例说明，谢谢
-- 发布时间：2011/10/25 22:10:00
--
代码没有变，只是我那些文本框没有绑定到列而已