Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表datacolchanged


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

主题：表datacolchanged
帅哥哟，离线，有人找我吗？
白国栋
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：177 积分：1718 威望：0 精华：0 注册：2017/3/26 10:20:00 		表datacolchanged  发帖心情 Post By：2017/3/27 21:56:00 [只看该作者]

行政编码表里“年度”，当前表里是“计划年度”：
输入下面的代码之后：
If e.DataCol.Name = "计划年度" OrElse e.DataCol.Name = "工程分类" Then
    Dim dr As DataRow
    '在行政编码表查找所输入计划年度和工程分类的行
    dr = DataTables("行政编码").Find("[年度] = '" & e.DataRow("计划年度") & "' And [工程分类] = '" & e.DataRow("工程分类") & "'")
    If dr IsNot Nothing Then '如果找到
        '将找到行的”亩投资“内容填入到正在输入的行中.
        e.DataRow("亩投资") = dr("亩投资")
     Else
        '否则清除区号和邮编两列的内容
        e.DataRow("亩投资") = Nothing
     End If
End If
提示：这样输入后提示未找到列“年度”，换过来之后提示：”计划年度“不是zdgc（当前表）的成员列。
不知道怎么处理了，高手指点！！！！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/27 22:21:00 [只看该作者]

代码应该没有问题，截图看看表结构

计划年度是列名还是标题名？
 回到顶部
帅哥哟，离线，有人找我吗？
白国栋
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：177 积分：1718 威望：0 精华：0 注册：2017/3/26 10:20:00 		  发帖心情 Post By：2017/3/27 22:38:00 [只看该作者]

列名。截图了不会发呢？？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/27 22:45:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
白国栋
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：177 积分：1718 威望：0 精华：0 注册：2017/3/26 10:20:00 		  发帖心情 Post By：2017/3/27 22:48:00 [只看该作者]

1是获取的表格，2是当前操作的表格。
If e.DataCol.Name = "项目分类" OrElse e.DataCol.Name = "项目期类"  OrElse e.DataCol.name = "计划年度" OrElse e.DataCol.name = "工程分类" Then
    If e.DataCol.name = "工程分类"
       ' 第一次修改(显示结果是0)
        Dim dr As DataRow
        '在行政区域表查找所输入省市和县市的行
        dr = DataTables("zdgc").Find("[项目分类] = '" & e.DataRow("项目分类") & "' And [项目期类] = '" & e.DataRow("项目期类") & "'" )
        dr = DataTables("zdgc").Find("[计划年度] = '" & e.DataRow("计划年度") & "' And [工程分类] = '" & e.DataRow("工程分类") & "'" )
        
        If dr IsNot Nothing Then '如果找到
            '将找到行的区号?邮编内容填入到正在输入的行中.
            e.DataRow("亩投资") = dr("亩投资")
        Else
            '否则清除区号和邮编两列的内容
            e.DataRow("亩投资") = Nothing
        End If
    End If
End If
这样输入之后：亩投资里只显示0，不显示100
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/27 23:04:00 [只看该作者]

代码写到zdgc表DataColCHanged事件

If e.DataCol.Name = "项目分类" OrElse e.DataCol.Name = "项目期类"  OrElse e.DataCol.name = "计划年度" OrElse e.DataCol.name = "工程分类" Then
    Dim dr As DataRow
    dr = DataTables("项目投资标准").Find("[项目分类] = '" & e.DataRow("项目分类") & "' And [项目期类] = '" & e.DataRow("项目期类") & "' and [年度] = '"  & e.DataRow("计划年度") & "' And [工程分类] = '" & e.DataRow("工程分类") & "'")
    
    If dr IsNot Nothing Then '如果找到
        e.DataRow("亩投资") = dr("亩投资")
    Else
        e.DataRow("亩投资") = Nothing
    End If
    
End If
[此贴子已经被作者于2017/3/27 23:05:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
白国栋
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：177 积分：1718 威望：0 精华：0 注册：2017/3/26 10:20:00 		  发帖心情 Post By：2017/3/28 7:01:00 [只看该作者]

噢！！！！处理了，谢谢。把搜索的表格名字写错了。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询