以文本方式查看主题

-  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
--  
还是不太清楚如何下手,得发文件看看。