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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有1738人关注过本帖树形打印复制链接主题：[求助]

minxizai

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

加好友

发短信

等级：幼狐帖子：175 积分：1652 威望：0 精华：0 注册：2015/6/10 13:50:00

[求助]

Post By：2017/6/30 14:55:00 [只看该作者]

希望结算账户变更后，所有表中含结算账户的行一起变更，

问题1：假设数据库有很多不同项目的表，

For Each dt As DataTable In DataTables

If dt.Name = "结算账户" Then

这样查找的表是数据库中的表，还是项目中表？

问题2：下面的代码为什么没用？

If e.DataCol.Name = "结算账户" Then

For Each dt As DataTable In DataTables

If dt.Name = "结算账户" Then

Continue For

For Each dr As DataCol In dt.DataCols

If dr.Name = "结算账户" Then

Dim ds As List(of DataRow)

ds = dt.Select("结算账户 = '" & e.OldValue & "'")

If ds IsNot Nothing Then

For Each d As DataRow In ds

d("结算账户") = e.NewValue

End If

有点甜

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

加好友

发短信

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

Post By：2017/6/30 16:06:00 [只看该作者]

1、参考

for each dt as datatable in datatables
output.show(dt.ConnectionName)
Next

2、

If e.DataCol.Name = "结算账户" Then
    For Each dt As DataTable In DataTables
        If dt.DataCols.Contains("结算账户") Then
            dt.ReplaceFor("结算账户", e.newvalue, "结算账户 = '" & e.oldvalue & "'")
        End If
    Next
End If