Dim dtb As New DataTableBuilder("收款录入表") '创建临时表
dtb.AddDef("账套期间", Gettype(Date))
dtb.AddDef("所属公司", Gettype(String),16)
dtb.AddDef("项目分期", Gettype(String),16)
dtb.AddDef("房间编号" , Gettype(String),16)
dtb.AddDef("合同编号" , Gettype(String),16)
dtb.AddDef("乙方名称" , Gettype(String),16)
dtb.AddDef("收款项目" , Gettype(String),16)
dtb.AddDef("收据编号" , Gettype(String),16)
dtb.AddDef("收款标准", Gettype(String),16)
dtb.AddDef("收款金额", Gettype(Double))
dtb.AddDef("应收日期", Gettype(Date))
dtb.AddDef("收款日期", Gettype(Date))
dtb.AddDef("备注", Gettype(String),50)
dtb.AddDef("申报用户", Gettype(String),6)
dtb.AddDef("用户分组", Gettype(String),10)
dtb.AddDef("申报日期", Gettype(Date))
dtb.AddDef("审核人员", Gettype(String),6)
dtb.AddDef("审核日期", Gettype(Date))
dtb.AddDef("编辑者", Gettype(String),6)
dtb.Build()
Tables("收款录入表").Visible=False
Tables("弹出收款窗口_Table1").DataSource=DataTables("收款录入表")'临时表绑定到窗口