-- 作者:大红袍
-- 发布时间:2016/1/7 11:07:00
--
写到窗口的AfterLoad事件
Dim dmp As New TableDataMap dmp.DataTable = "客户" \'指定数据来源表 dmp.ValueCol = "ID" \'指定取值列 dmp.DisplayCol = "公司" \'指定显示列 \'指定下拉列表时显示哪些列的数据 dmp.ListCols = "ID,公司,姓氏,名字,职务,业务电话,传真号,地址,城市,邮政编码" dmp.Sort = "城市" \'指定排序方式 e.Form.Controls("Table1").Table.Cols("客户 ID").DataMap = dmp.CreateDataMap() \'生成并设置DataMap
|