设置不同步 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 设置不同步

共有1500人关注过本帖树形打印复制链接主题：设置不同步

有点甜

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

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

Post By：2017/12/3 21:43:00 [显示全部帖子]

加上列名判断

If e.DataCol.Name="关联编号" AndAlso e.DataRow.IsNull("关联编号")=False Then

有点甜

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

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

Post By：2017/12/4 11:31:00 [显示全部帖子]

If e.DataCol.Name = "资产时态_最新价格" Then

Dim adr As DataRow

adr = DataTables("行情数据").Find("关联编号= '" & e.DataRow("项目信息_关联编号") & "'", "项目信息_变动编号 desc")

If adr IsNot Nothing '如果找到, 则设置各列内容

adr("资产时态_其它收益") = e.DataRow("时实资产_非股收益")

adr("资产时态_溢价收益") = e.DataRow("时实资产_溢价收益")

adr("资产时态_在投资金") = e.DataRow("时实资产_在投资产")

End If

End If '带入企业名称

有点甜

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

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

Post By：2017/12/4 12:18:00 [显示全部帖子]

列名改成你表A修改的列的的列名

e.DataCol.Name="项目信息_关联编号"

主题：设置不同步