- 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)
-- 发布时间：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
--
各控件命名优化，带有列名特征，，否则，优化意义不大！
-- 发布时间：2012/9/3 19:38:00
--
