'如果刚刚输入的不是省市或县市列
If e.Col.Name <> "主要树种" Then
Return '则返回
End If
'如果省市或县市列的内容为空
If e.Row.IsNull("主要树种") Then
'则清除区号和邮编两列的内容
e.Row("造林密度") = DBNull.Value
e.Row("模型号") = DBNull.Value
Return '然后返回
End If
Dim dr As DataRow
'在行政区域表查找所输入省市?县市的行
dr = DataTables("树种").Find("[主要树种] = '" & e.Row("主要树种") & "' ")
If dr IsNot Nothing Then '如果找到
'将找到行的区号?邮编内容填入到正在输入的行中.
e.Row("造林密度") = dr("造林密度") '
e.Row("模型号") = dr("模型号")
End If
照示例改动自动输入（注解文字未改）编缉后才能生效，我的数据是导入的[主要树种]已经存在，需要在"造林密度"，"模型号"列立即生效。就象易表刷新公式一样。能有办法否？
文件已上传，在总览表中有一列[主要树种]数据已经存在，设置上述公式后在[主要树种]列每一行编缉后"造林密度"，"模型号"列才能生效，录入数据时适用。现在需要在"造林密度"，"模型号"列全部立即生效。就象易表刷新公式一样
[此贴子已经被作者于2008-9-10 16:14:33编辑过]