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 CurrentTable
.cols("remark").RecordRowHeight=5
.cols("opp_name").RecordRowHeight=1
End With
rgd.Build() '重新生成记录窗口
[此贴子已经被作者于2013-4-4 12:14:11编辑过]