以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这个代码怎么优化?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23120)

--  作者:sinbyu
--  发布时间:2012/9/3 0:05:00
--  这个代码怎么优化?
Dim t As Table = Tables("客户管理_Table1")
t.Filter = "资料分类 = \'客户\'"
e.Form.Controls("TextBox1").BindingField = "客户管理_Table1.编号"
e.Form.Controls("TextBox2").BindingField = "客户管理_Table1.公司名称"
e.Form.Controls("TextBox3").BindingField = "客户管理_Table1.联系人"
e.Form.Controls("TextBox8").BindingField = "客户管理_Table1.QQ号码"
e.Form.Controls("TextBox9").BindingField = "客户管理_Table1.付款方式"
e.Form.Controls("TextBox4").BindingField = "客户管理_Table1.联系手机"
e.Form.Controls("TextBox5").BindingField = "客户管理_Table1.联系电话"
e.Form.Controls("TextBox6").BindingField = "客户管理_Table1.其它电话"
e.Form.Controls("TextBox7").BindingField = "客户管理_Table1.传真"
e.Form.Controls("TextBox10").BindingField = "客户管理_Table1.城市"
e.Form.Controls("TextBox12").BindingField = "客户管理_Table1.地址"
e.Form.Controls("TextBox16").BindingField = "客户管理_Table1.发货地点"
e.Form.Controls("TextBox13").BindingField = "客户管理_Table1.客户级别"
e.Form.Controls("TextBox14").BindingField = "客户管理_Table1.开户行"
e.Form.Controls("TextBox15").BindingField = "客户管理_Table1.备注"
e.Form.Controls("Table1").Select()

--  作者:程兴刚
--  发布时间:2012/9/3 0:27:00
--  
各控件命名优化,带有列名特征,,否则,优化意义不大!
--  作者:sinbyu
--  发布时间:2012/9/3 19:38:00
--  
图片点击可在新窗口打开查看