Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("窗口意向管理_tblYixiangguanli") '指定绑定表
rgd.Columns = "opp_name|course|totalMoney|returnDate|create_date|creator|developer|track_user|successRate|modifier|modify_date|remark|status"
With Tables("窗口意向管理_tblYixiangguanli")
.cols("remark").RecordRowHeight=5
.cols("opp_name").RecordRowHeight=1
End With
rgd.Build() '重新生成记录窗口