Forms("合同变更窗口").Open()

Dim wfmTb As WinForm.Table=Forms("合同变更窗口").ConTrols("Table1")

Dim dtb As New  DataTableBuilder("合同变更表") \'创建临时表

dtb.AddDef("开发项目", Gettype(String), 30)

dtb.AddDef("开发产品", Gettype(String), 30)

dtb.AddDef("合同名称", Gettype(String), 50)

dtb.AddDef("乙方", Gettype(String), 30)

dtb.AddDef("挂靠单位", Gettype(String), 30)

dtb.AddDef("父ID", Gettype(Integer))

dtb.AddDef("所属期间", Gettype(Date))

dtb.AddDef("是否主体", Gettype(Boolean))

dtb.AddDef("备注", Gettype(String),20)

dtb.Build()

Dim drNew As DataRow = DataTables("合同变更表").AddNew \'给临时表添加数据

drNew("开发项目") = "测试数据"

drNew("开发产品") = "测试数据"

Tables("合同变更窗口_Table1").DataSource=DataTables("合同变更表")\'临时表绑定到窗口