主题：列表设置

这种情况不能用数据字典，用列表项目。

没看懂，只知道这样的代码是没有意义的：

 

For Each dr As DataRow In DataTables("单位定义").Select("[货品编号] = '" & e.Row("货品编号") & "'")
    Dim v1() As String ={"编号" & dr("单位编号") & dr("单位") & dr("比率")}
    e.Col.Combolist = V1(0)
Next

 

最后此列的列表项目由最后一个符合条件的行决定，和其他行没有关系。