数据字典下拉显示的value,实在不人性化。我看帮助文件上有就写了一个内部函数
Dim drs As List(of DataRow ) = args(0)
Dim mdm As New MultiDataMap
For Each dr As DataRow In drs
mdm.add( dr(args(1)) & "|" & dr(args(2)) )
Next
mdm.ValueCol = 0
mdm.DisplayCol = 1
Return mdm.CreateDataMap()
、、、、、、、、、、、、、、使用
’‘设置主合同代码
drs = DataTables("agreement").Select("agreementCode <> '' ")
Tables("agreementBAndC").Cols("agreementFatherCode").DataMap = Functions.Execute("下拉列表取值显示完善",drs, "agreementCode" , "agreementName" )
、、、、、、、、、、、、、、、、
但是我发现单个表用没问题,涉及到关联表,就全乱了有时候带着全变了