If e.IsFocusCell Then '如果是焦点所在单元格 If e.Col.Name = "职务" Then e.Col.Combolist = DataTables("表").GetComboListString("职务", "单位 = '" & e.Row("单位") & "' and 部门 = '" & e.Row("部门") & "'") End IfEnd If