主题：输入值，显示不对

在销货单输入数据，其中有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”，请问版主，这个代码需要怎么修改，谢谢