Dim shmcbx As WinForm.TextBox=e.Form.controls("shanghumingchengText")
Dim str As String =shmcbx.text
Dim t As Table = Tables("商户资料表")
if t.current isnot nothing then
原来的其它代码
endif