主题：格式转换错误

我用窗口设计了个录入框，想通过在文本框或列表框中输入内容，点完按钮后，就把数据添加到表格中，但出现问题了：

代码如下：

 

            Dim dr As DataRow=DataTables("消费记录表").AddNew()
                  dr("购买日期")=Date.Today
                   dr("商品名称")=e.Form.Controls("TextBox2")

 

商品名称列的格式是文本型的

此主题相关图片如下：错误提示.jpg

谢了，首次使用狐表