|
DataTables("隐性债务总览表").datarows.clear
Dim f As New Filler
f.SourceTable = DataTables("债务举借明细表") '指定数据来源
f.SourceCols = "债务单位简称,债务单位,债务编码,债务名称,项目简称,项目名称,项目编码,债务类别,债权人,债权类型" '指定数据来源列
f.DataTable = DataTables("隐性债务总览表") '指定数据接收表
f.DataCols = "债务单位简称,债务单位,债务编码,债务名称,项目简称,项目名称,项目编码,债务类别,债权人,债权类型" '指定数据接收列
f.ExcludeExistValue = True
f.filter = "A = true"
f.Fill() '填充数据
MainTable = Tables("隐性债务总览表")
|
加好友 
发短信
Post By：2019/1/17 15:10:00 [显示全部帖子]
