本人自己设计如下:
1.设计林权现场勘界表,录入数据.
此主题相关图片如下:1.jpg
2.再自动生成权利人信息表和责任山列表:
权利人信息表
此主题相关图片如下:2.jpg
责任山列表
此主题相关图片如下:3.jpg
3。然后在权利人信息表中设计报表,打印如下:
此主题相关图片如下:截图06.jpg
此主题相关图片如下:截图07.jpg
设计报表时主要是用FindText函数:如第1、2宗地的小地名设计如下:
第1宗地时:FindText("责任山列表","小地名","合同编号","=",[责任山列表!合同编号],1)
第2宗地时:FindText("责任山列表","小地名","合同编号","=",[责任山列表!合同编号],2)
依次类推。