Foxtable(狐表)用户栏目专家坐堂 → 自动输入整列立即生效


  共有22526人关注过本帖树形打印复制链接

主题:自动输入整列立即生效

帅哥哟,离线,有人找我吗?
易服
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
自动输入整列立即生效  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19229 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/9/10 14:50:00 [只看该作者]

还是不太清楚如何下手,得发文件看看。

 回到顶部