If MainTable.Name = "风险控制矩阵" Then
Dim dmp As New TableDataMap
dmp.DataTable = "流程架构维护" '指定数据来源表
dmp.ValueCol = "流程编号" '指定取值列
dmp.DisplayCol = "流程编号" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "公司名称,流程编号,一级业务流程,二级业务流程,三级业务流程,四级业务流程,五级业务流程,六级业务流程"
dmp.Sort = "流程编号" '指定排序方式
Tables("风险控制矩阵").Cols("流程编号").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If