表B的PrepareEdit事件中加入以下代码
If e.Col.Name = "DG批号" Then e.Col.ComboList = DataTables("表A").GetComboListString("DG批号","[DNP编码] = '" & e.Row("DNP编码") & "'")