主题：窗口录入与查询

回76楼，ReplaceFor加上筛选条件

 

 

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

 

 

参考：http://www.foxtable.com/webhelp/scr/1534.htm

 

Dim id As Integer = Tables("表A").Compute("min([_Identify])")
DataTables("表A").ReplaceFor("xx列","新值","[_Identify] >= " & id)

 

如果要锁定，参考http://www.foxtable.com/webhelp/scr/0427.htm

 

上传实例测试

这种只能写个循环进行更新了

 

Dim t As Table = e.Form.Controls("Table1").Table
Dim 业务类型 = e.Form.Controls("业务类型").Text
For Each r As Row In t.Rows
    r("业务类型") = 业务类型
    r("订单编号") = ......
Next

t.DataTable.Save()
e.Form.close

Dim 汇率 = val(e.Form.Controls("汇率").Text) / 100

窗口设计的表事件：DataColChanged事件

其它列应该是隐藏了，或者没有加载

删除项目里的bin目录，重启项目即可