在窗口事假AfterLoad
DataTables("报价系统_Table1").Load() '加载数据
Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd2.Table = Tables("报价系统_Table1") '指定绑定表
rgd2.Columns = "统计刷新|报价|报价系数|材料费|零件加工费|税率|模架费|设计费"
rgd2.Build() '重新生成记录窗口
在控件Table1的表事件AfterLoad
DataTables("报价系统_Table1").DataCols.Add("设计费", GetType(Double), "IIf([任务类别] = '模具新开'or [任务类别] = '模具维修', Convert([报价] * 0.08, 'System.Int32'), IIf([任务类别] = '零件加工', Null, Null))")
没加设计费时,一切正常
Table1的表事件AfterLoad事件代码去掉,放到窗口事件AfterLoad绑定记录窗口前面