以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  自动输入整列立即生效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=411)

--  作者：易服 --  发布时间：2008/9/10 11:31:00 --  自动输入整列立即生效 \'如果刚刚输入的不是省市或县市列 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编辑过]

--  作者：kylin --  发布时间：2008/9/10 14:50:00 --   还是不太清楚如何下手，得发文件看看。