主题：请教详细的代码

              表1                                                     表2

行政区划	村名	代码		镇名	村名	代码
A镇	a1村	d1
A镇	a2村	d2
A镇	a3村	d3
B镇	a4村	d4
B镇	a5村	d5
A镇	a6村	d6
B镇	a7村	d7
C镇	a8村	d8
C镇	a9村	d9
C镇	a10村	d10

 

表2的“镇名”列通过提取表1的“行政区划”列不重复名称生成列表项目，现在需要解决的问题是：1、在表2的“镇名”列的列表项目前面自动加上一个空白供选择（在表1没有空白行或列的情况下）；2、表2的“村名”列通过判断表2的“镇名”列，当表2的“镇名”不空时（如空时，需要提示镇名不能为空，输入位置自动跳转到镇名单元格），从表1中提取该镇的所有不重复的村名在表2的“村名”列生成列表项目，列表项目需要在前面自动加上一个空白选项，当表2选择某“村名”时，同时从表1中提取该村的代码自动填充到表2的“代码”列。3、代码放在项目事件的AfterOpenProject事件中。4、需要提供详细的代码。请各位指点给出，非常感谢了。