以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]引用其他表数据，生成唯一的  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71472)
--  作者：oubenming
--  发布时间：2015/7/11 23:04:00
--  [求助]引用其他表数据，生成唯一的
老师：在易表中我用了：
AppendFor("收付款登记","结算单位","结算单位","结算方式","=","转帐") And DelReptRows("入帐汇总","结算单位") And RecalcGrid(GridName)
有效果，能在汇总表“结算单位”列生成唯一的数据


但是狐表里用了
If MainTable.Name = "入账汇总" Then

    Dim f As New Filler

    DataTables("入账汇总").DataRows.Clear() \'清除原有数据

    f.SourceTable = DataTables("发票登记")

    f.SourceCols = "结算单位"

    f.DataTable = DataTables("入账汇总")

    f.DataCols = "结算单位"

    f.Fill()

DataTables("入账汇总").DataCols("当年累计入账数").Recalc()   

End If

会把其他数据删了   

有其他代码替代吗？  谢谢老师
--  作者：y2287958
--  发布时间：2015/7/12 7:44:00
--  
上例子
--  作者：大红袍
--  发布时间：2015/7/12 9:22:00
--  
If MainTable.Name = "入账汇总" Then
    Dim f As New Filler
    f.SourceTable = DataTables("发票登记")
    f.SourceCols = "结算单位"
    f.DataTable = DataTables("入账汇总")
    f.DataCols = "结算单位"
    f.ExcludeExistValue = True
    f.Fill()
    DataTables("入账汇总").DataCols("当年累计入账数").Recalc()   
End If
--  作者：oubenming
--  发布时间：2015/7/13 12:28:00
--  
谢谢老师!!!  能用了!!!