自己创建临时表，然后绑定到窗口，方便之处就是项目中不会存在太多的表，看得人眼花缭乱，代码如下：
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("合同变更表")'临时表绑定到窗口
加好友 
发短信
Post By：2015/7/15 19:24:00 [只看该作者]
