老师：在易表中我用了：
AppendFor("收付款登记","结算单位","结算单位","结算方式","=","转帐")
And DelReptRows("入帐汇总","结算单位") And RecalcGrid(GridName)
有效果，能在汇总表“结算单位”列生成唯一的数据
但是狐表里用了
If MainTable.Name = "入账汇总"
Then
Dim f As New Filler
DataTables("入账汇总").DataRows.Clear() '清除原有数据
f.SourceTable = DataTables("fa piao登记")
f.SourceCols = "结算单位"
f.DataTable = DataTables("入账汇总")
f.DataCols = "结算单位"
f.Fill()
DataTables("入账汇总").DataCols("当年累计入账数").Recalc()
End If
会把其他数据删了
有其他代码替代吗？ 谢谢老师
加好友 
发短信
Post By：2015/7/11 23:04:00 [只看该作者]
