如何实现一个单元格内容变化，会在另一个单元格得到相应的值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现一个单元格内容变化，会在另一个单元格得到相应的值

共有2251人关注过本帖树形打印复制链接主题：如何实现一个单元格内容变化，会在另一个单元格得到相应的值

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/13 17:54:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/1459.htm

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/13 21:00:00 [显示全部帖子]

以下是引用zpsun2003在2018/12/13 20:47:00的发言：
两个单元格不在同一列可以实现，两个单元格在同一列中怎么实现呢

方法一：http://www.foxtable.com/webhelp/scr/2124.htm

方法二：和3楼的一样，你把代码写到datacolchanging事件，动态修改 e.newvalue 的值，即可。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/13 21:50:00 [显示全部帖子]

不清楚你的表结构是怎样的，尽量做一个实例发上来测试。

If e.DataCol.Name = "选项1" Then
    Dim dr1 As DataRow = DataTables("初始化表_选择参数").Find("参数名称1 = '产品型号'")
    Dim dr2 As DataRow = DataTables("初始化表_选择参数").Find("参数名称1 = '硅钢片牌号'")
    Dim dr3 As DataRow = DataTables("设计系数表").Find("性能水平代号 = '" & dr1("选项1") & "'")
    If dr1 isnot Nothing AndAlso dr2 isnot nothing andalso e.DataRow("_Identify") = dr1("_Identify") Then
        dr2("选项1") = dr3("推荐硅钢片牌号")
    End If
End If

下一主题 >> << 上一主题

主题：如何实现一个单元格内容变化，会在另一个单元格得到相应的值