主题：代码问题！！谢谢了

Dim r1 As Row = Tables("商品").Current

Dim r2 As Row = Tables("订单处理").AddNew

r2("productID") = r1("商品号码")

r2("商品名") = r1("商品名称")

r2("商号") = r1("商号")

r2("pic") = "TextBox2"

r2("color") = "颜色"

 

代码如上，

 

最后两行 我想要r2（“pic”）= textbox2 文本框里的值应该怎么改啊？ 谢谢！！