主题：[求助]如何将有更改过的行筛选出来，并执行相应的代码

如何将有更改过的行筛选出来，并执行相应的代码！

1、举例：我表中有采购一行，如果采购中的一行有修改，则在物料表中找出对应的物料编码，

参考

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

也可以循环每一行，判断其状态

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

Dim tbn As String = "DtCG" & Format(Functions.Execute("返回服务器日期"),"HHmmss")
Dim g As New GroupTableBuilder(tbn, dt)
g.Groups.AddDef("子阶代码")
g.Groups.AddDef("名称")
g.Groups.AddDef("规格型号")
g.Groups.AddDef("单位")
g.Totals.AddDef("需求数")
g.Build()
Dim tb3 As Table = Tables(e.Form.Name & "_Table3")
tb3.DataSource  = DataTables(tbn)
Dim dt3 As DataTable = tb3.DataTable

下面是采购列发生变化，保存用的代码，经测试，代码在代码没有效果 。

Dim tb As Table = Tables(e.Form.Name & "_Table3")

tb.StateFilter = StateFilterEnum.Modified
For Each r As Row In tb.Rows

    If r.IsNull("采购") = False Then
        Dim cmd As new SQLCommand
        cmd.C
        cmd.CommandText = "UP DATE {物料表} SET [采购负责人] = '" & r("采购") & "' WHERE [代码] = '" & r("子阶代码") & "'"
        MessageBox.Show(cmd.CommandText)
        cmd.ExecuteNonQuery()
    End If
Next

老师，已按你要求修改，但还是没有作用！ 

统计表、临时表，是没有【行状态】的，所以你无法获取对应的行。

你可以绑定datacolchanged事件，再加入一个【状态】列，如果修改了，就记录  e.datarow("状态") = "修改"

老师，代码中的空值怎么写

Dim tb As Table = Tables(e.Form.Name & "_Table3")
Dim dt As DataTable = tb.DataTable
Dim drs As List(of DataRow) = dt.Select("状态 = 'Y'")
For Each r As DataRow In drs    
    If r.IsNull("采购") = False Then
        Dim cmd As new SQLCommand
        cmd.C
        If r.IsNull("采购") Then
            cmd.CommandText = "UPD ATE {物料表} SET [采购负责人] = '' WHERE [代码] = '" & r("子阶代码") & "'"
        Else
            cmd.CommandText = "UPD ATE {物料表} SET [采购负责人] = '" & r("采购") & "' WHERE [代码] = '" & r("子阶代码") & "'"
        End If
        cmd.ExecuteNonQuery()
    End If
Next

cmd.CommandText = "UPDATE {物料表} SET [采购负责人] = null WHERE [代码] = '" & r("子阶代码") & "'"