vfp里GRID列名的实现.docVIP

下载本文档

31
0
约3.2千字
约 6页
2015-09-26 发布于重庆
举报
版权申诉

vfp里GRID列名的实现.doc

1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

vfp里GRID列名的实现

?关于编程GRID1表格列InteractiveChange事件问题我在表单FROM1里添加表格GRID1。表格GRID1的属性、列数等都在表单FROM1的INIT写代码生成。代码如下WITH?Thisform.grid1????.ReadOnly=.f.????.RecordSource=sdsr????.ForeColor=?RGB(0,0,255)?????.AllowCellSelection=.T.????.ColumnCount=18????.LockColumns=5????.DeleteMark=.F.????.RecordMark=.T.????.GridLineColor=RGB(192,192,192)????.Column1.Header1.Caption=姓名????.Column1.Width=50????.column1.controlsource=sdsr.姓名????.Column1.BackColor=RGB(249,249,244)????.Column2.Header1.Caption=工资????.Column2.Width=20????.column2.controlsource=sdsr.工资????.Column2.BackColor=RGB(249,249,244)????.Column3.Header1.Caption=奖金????.Column3.Width=50????.column3.controlsource=sdsr.奖金????.Column3.BackColor=RGB(249,249,244)????.Column4.Header1.Caption=合计????.Column4.Width=40????.column4.controlsource=sdsr.合计????.Column4.BackColor=RGB(249,249,244）ENDW???如何用编程方式写代码实现如下功能(用户使用键盘或鼠标更改THISFORM.GRID1.COLUMN2.TEXT1.VALUE值时THISFORM.GRID1.COLUMN4.TEXT1.VALUE值也随时变化。以往是GRID1先生成列.然后是在THISFORM.GRID1.COLUMN2.TEXT1的InteractiveChange事件加入如下代码就实现了.只不过现在GRID1的列是通过表单FROM1的INIT写代码生成，而在GRID1没有InteractiveChange事件选择.那么现在应该如何写代码实现这个功能.THISFORM.GRid1.Column4.TEXT1.VALUE=THISFORM.GRid1.Column2.TEXT1.VALUE+THISFORM.GRid1.Column3.TEXT1.VALUE ?? ?回复内容【cnszyuxin】:简单一点,设置完后,使用事件绑定.BindEvent(THISFORM.GRid1.Column4.TEXT1,InteractiveChange,;?????????????????ThisForm,MyDelegate)在设计阶段在Form中增加该DeleGate方法,实现:??????THISFORM.GRid1.Column4.TEXT1.VALUE=??????THISFORM.GRid1.Column2.TEXT1.VALUE+THISFORM.GRid1.Column3.TEXT1.VALUE【apple_8180】:同意老猫【lkwmz】:谢谢..不过有时候不得.THISFORM.GRid1.Column2.TEXT1.VALUE=54THISFORM.GRid1.Column3.TEXT1.VALUE=0当我第一次把THISFORM.GRid1.Column2.TEXT1.VALUE的值改为105时THISFORM.GRid1.Column4.TEXT1.VALUE的值变成了-1440但是以后各次改动都正确,这是什么原因呀.【cxmcxm】:vfp8.0开始出现bindevent()函数,就用此东东来实现.【cnszyuxin】:楼主所需要的技术和技巧,在VFP6中就可以很简单地实现.使用DBC的View会更好地实现用户需求的数据的处理.如上例可以使用以下语句:?//如果是远程的,则加上Remote????Create?View?MyGridView?As?;????????Select?ID,Name,Code,Salary,WorkMonth,;???????????????S