Dim tb As Table = e.Form.Controls("Table1").Table
if tb.Current isnot nothing then
Dim txt As String = tb.Current("商品编码")
end if