共11 条记录, 每页显示 10 条, 页签: [1] [2]

标题：输入值，显示不对

1楼

baxiu 发表于：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楼

狐狸爸爸 发表于：2011/10/25 19:57:00

做个例子，传上来说话。

3楼

baxiu 发表于：2011/10/25 20:05:00

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

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

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

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

4楼

狐狸爸爸 发表于：2011/10/25 20:11:00

计算机是不会撒谎的，代码看不出问题来，将你的文件传上来测试。

5楼

baxiu 发表于：2011/10/25 20:18:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

提示密码时，输888

[此贴子已经被作者于2011-10-25 20:19:04编辑过]

6楼

狐狸爸爸 发表于：2011/10/25 21:20:00

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

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

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

7楼

baxiu 发表于：2011/10/25 21:43:00

我要怎么修改才可以呢？

8楼

狐狸爸爸 发表于：2011/10/25 21:46:00

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

9楼

baxiu 发表于：2011/10/25 22:06:00

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

10楼

狐狸爸爸 发表于：2011/10/25 22:10:00

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

共11 条记录, 每页显示 10 条, 页签: [1] [2]