代码改到AfterEdit事件
然后要绑定的是列不是行
Select Case e.Col.name
Case "是否来源于合作单位"
If e.Row("是否来源于合作单位") = True Then
Dim dmp As New TableDataMap
dmp.DataTable = "合作单位" '指定数据来源表
dmp.ValueCol = "合作单位联系人姓名" '指定取值列
dmp.DisplayCol = "合作单位联系人姓名" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "合作单位编号,合作单位名称,合作单位联系人姓名,合作单位联系人职务"
dmp.Sort = "合作单位编号" '指定排序方式
e.Cols("企业客户来源个人编号").DataMap = dmp.CreateDataMap() '生成并设置DataMap
Else
Dim dmp As New TableDataMap
dmp.DataTable = "HFCW人员花名册" '指定数据来源表
dmp.ValueCol = "工号" '指定取值列
dmp.DisplayCol = "工号" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "工号,姓名,所属部门,职务"
dmp.Sort = "工号" '指定排序方式
e.Cols("企业客户来源个人编号").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If
End Select
加好友 
发短信
Post By：2017/10/25 11:55:00 [显示全部帖子]
