Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表B逻辑列发生变化 表A的列等于某一个值


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

主题：[求助]表B逻辑列发生变化 表A的列等于某一个值
帅哥哟，离线，有人找我吗？
王小风
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：468 威望：0 精华：0 注册：2021/9/2 16:35:00 		[求助]表B逻辑列发生变化 表A的列等于某一个值  发帖心情 Post By：2021/9/27 15:52:00 [只看该作者]

目的：表B 第一列逻辑值为是  则表A第一列自动输入1
这个代码行不通：
If e.DataCol.Name=("第一列") AndAlso e.DataRow("第一列")=True Then
    DataTables("表A").DataRows("第一列")="1"
End If

我感觉 是代码不知道 往"表A"的哪一行行填入“1”
请帮忙看下正确的应该怎么写
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


If e.DataCol.Name=("第一列") AndAlso e.DataRow("第一列")=True Then
Dim dr As DataRow = DataTables("表A").Find("[关联列] = '" & e.DataRow("关联列") & "'")
        If dr IsNot Nothing Then 
            dr("第一列") ="1"
        End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
王小风
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：468 威望：0 精华：0 注册：2021/9/2 16:35:00 		  发帖心情 Post By：2021/9/27 16:13:00 [只看该作者]

If e.DataCol.Name="材料入库" AndAlso d("材料入库")=True Then
    If d("品质判定")="不合格" Then
        Dim nma() As String={"生产信息_批次号","排产信息_母卷号","排产信息_合金牌号","生产信息_实际宽度_卷尾","排产信息_厚度"}
        Dim nmb() As String={"识别码","母卷号","合金牌号","宽度","厚度"}
        Dim dr As DataRow=DataTables("原材仓").AddNew
        For i As  Integer= 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
            dr("大类")="改切料"
        Next
    End If
End If

按照这个图片点击可在新窗口打开查看思路 完美解决
 回到顶部
帅哥哟，离线，有人找我吗？
王小风
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：468 威望：0 精华：0 注册：2021/9/2 16:35:00 		  发帖心情 Post By：2021/9/27 16:16:00 [只看该作者]

明白 你这个 写法的原理了。根据关联列 锁定行 填入值

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