'配置 客户 数据字典
Dim dmp1 As New DataMap
For Each tr As Row In Tables(e.Fo rm.Name & "_Table2")
dmp1.Add(tr("ClientID"),tr("ClientNameCN"))
Next
tb.Cols("收款人").DataMap = dmp1 '生成并设置DataMap
'配置 支付类型 数据字典
'DataTables("FromGroup").Fill("Select * Fro m IncomeKind Where RorP = 'P' Order by RPID", "FM_2014", True)
tb.Cols("支出类型").AllowTypeAssistant = True
Dim dmp2 As New DataMap
For Each tr As Row In Tables(e.For m.Name & "_Table4")
dmp2.Add(tr("RpID"),tr("Config"))
Next
tb.Cols("支出类型").DataMap = dmp2 '生成并设置DataMap
'配置 受托方 数据字典
Dim tbMap As New TableDataMap
tbMap.DataTable = "BK_ConsignNote_tblEntrust" '指定数据来源表
tbMap.ValueCol = "ClientID" '指定取值列
tbMap.DisplayCol = "ClientNameCN" '指定显示列
tbMap.ListCols = "ClientID, ClientNameCN" '指定下拉列表时显示哪些列的数据
tbMap.Sort = "ClientID" '指定排序方式
tb.Cols("受托方").DataMap = tbMap.CreateDataMap() '生成并设置DataMap
加好友 
发短信
Post By：2015/1/22 15:26:00 [显示全部帖子]
Post By：2015/1/22 15:30:00 [显示全部帖子]
此主题相关图片如下：2015.bmp