currentchanged事件代码(ybg表的事件)
Dim TB1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim TB2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim TB3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim TB4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim CB1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim CB2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
TB2.TEXT = Tables("YGB").CURRENT("YGXM")
TB3.TEXT = Tables("YGB").CURRENT("PHONE1")
TB4.TEXT = Tables("YGB").CURRENT("SFZHM")
cb1.text = Tables("YGB").CURRENT("YGXB")
cb2.text = Tables("YGB").CURRENT("zw")