比如在PrepareEdit事件中设置如下代码,即可自动产生对应的下拉列表
If e.Col.Name = "紧急联系人称呼" Then e.Col.Combolist = DataTables("家庭成员").GetComboListString("与员工关系", "[员工姓名] = '" & e.Row("姓名") & "'") End If