[求助]表B逻辑列发生变化表A的列等于某一个值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3682人关注过本帖树形打印复制链接主题：[求助]表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

等级：婴狐帖子：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("大类")="改切料"

End If

按照这个

思路完美解决

王小风

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

等级：婴狐帖子：43 积分：468 威望：0 精华：0 注册：2021/9/2 16:35:00

Post By：2021/9/27 16:16:00 [显示全部帖子]

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

主题：[求助]表B逻辑列发生变化 表A的列等于某一个值