Dim cr As Row = e.form.controls("Table1").Table.Current
cr("菜品") = "abcdefg"
cr("数量") = cr("数量") + 1
e.form.Controls("TextBox1").Text = cr("数量")