当 “表A” 中“名称”列是某值时,查找“表B”中“名称”列,找到对应的,则“表A“中“数据”列的下拉项目为表B找到对应的值,如图。
代码是:
PrepareEdit事件
If e.Col.Name = "数据" Then Dim dr As DataRow dr = DataTables("表b").Find("名称= '" & e.Row("名称") & "'") If dr IsNot Nothing e.Col.ComboList = dr("名称对应的数据")End If End If
目前问题是,表B 的 名称列 相同名称 会对应几个不同行的数据 ,表A出的下拉项目只显示第一个数据,后边的数据不出现,请问有什么办法可实现?