逛逛版主RTF列,原帖地址:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=63410&authorid=0&page=0&star=1
例子中的项目事件 :AfterOpenProject
Dim c1g As C1FlexGrid.C1FlexGrid = Tables("表A").Grid
c1g.Cols("第三列").Editor = New zxbTableRTFCol()
AddHandler c1g.OwnerDrawCell, AddressOf _flex_OwnerDrawCell
我把第一句中的:Tables("表A").Grid
改成:Forms("窗口1").Controls("RecordGrid1").Tables.Grid
全部代码如下:
Dim c1g As C1FlexGrid.C1FlexGrid = Forms("窗口1").Controls("RecordGrid1").Tables.Grid
c1g.Cols(1).Editor = New zxbTableRTFCol() ’记录窗口第2列
AddHandler c1g.OwnerDrawCell, AddressOf _flex_OwnerDrawCell
提示出错。请老师指教是否可行?谢谢!
附件: