vsflexgrid msflexgrid控件的技术问题

vsflexgrid msflexgrid控件的技术问题

ID:14330146

大小:40.00 KB

页数:13页

时间:2018-07-28

vsflexgrid msflexgrid控件的技术问题_第1页
vsflexgrid msflexgrid控件的技术问题_第2页
vsflexgrid msflexgrid控件的技术问题_第3页
vsflexgrid msflexgrid控件的技术问题_第4页
vsflexgrid msflexgrid控件的技术问题_第5页
资源描述:

《vsflexgrid msflexgrid控件的技术问题》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、VSFlexgridMSFlexGrid控件的技术问题1,如果想把某一列设置成下拉框中选择,只能写成grid.colcombolist(1)="a

2、b

3、c"吗?能不能把下拉框中的数据和recordset或数组绑定。答案:grid.colcombolist(1)=grid.buildcombolist(rs!abc)2,怎样限定第三列可编辑,其他列不可编辑?答案:PrivateSubfg_BeforeEdit(ByValRowAsLong,ByValColAsLong,CancelAsBoolean)'*******先将设ed

4、itable=2'限定不可编辑列,如有5列IfCol=0ThenCancel=TrueIfCol=1ThenCancel=TrueIfCol=2ThenCancel=TrueIfCol=4ThenCancel=TrueIfCol=5ThenCancel=TrueEndSub3、怎么获得当前单元个的位置,比如某单元个获得焦点,弹出msgbox("你选的是第4行第5列")Answer:PrivateSubVSFlexGrid1_Click()Dima,bAsLonga=VSFlexGrid1.Rowb=VSFlexGrid1.C

5、olMsgBox"你选的是"&a&"行"&b&"列"EndSub4,对vsflexgrid进行编辑的时候,让vsflexgrid的某列只能输入数字?Answer:PrivateSubCheckData(KeyAsciiAsInteger)IfKeyAscii>=48AndKeyAscii<=57ThenExitSub'如果是数字退出IfKeyAscii<>8ThenKeyAscii=0EndSubPrivateSubvsflexgrid_KeyPressEdit(ByValRowAsLong,ByValColAsLong,K

6、eyAsciiAsInteger)Ifcol=1Then'第一列只能输入数字CheckDataKeyAsciiEndIfEndSub5,限制某列只能输入数字Answer:PrivateSubfg_KeyPressEdit(ByValRowAsLong,ByValColAsLong,KeyAsciiAsInteger)DimNumbersAsString'允许输入的字符Iffg.Col=6Then'第6列Numbers="1234567890"+Chr(46)+Chr(8)IfInStr(Numbers,Chr(KeyAsci

7、i))=0ThenKeyAscii=0EndIfEndIfEndSub6,如何指定一列的输入格式例如:显示有小数点后3位(是整数的话显示.000;没有达到3位显示.200(追加0);超过的4舍五入)例如:显示有小数点后3位(是整数的话显示.000;没有达到3位显示.200(追加0);超过的4舍五入)Answer:iffg.col=5then'第五行fori=1tofg.rows-1fg.TextMatrix(i,5)=format(fg.TextMatrix(i,5),"##0.000")nextiendif7,在一个单元格

8、输入好数字回车,下一单元格(或者下一行第一个)自动获得焦点。这个怎么实现?这个怎么实现?Answer:试试这个,,,,,'Withfg'If.Col=.Cols-1Then''如果到了最右边的列就跳到下一行第一个可非固定列''.Row=Row+1'.Col=.FixedCols'Else''向右移动一列'.Col=Col+1'EndIf'EndWith8,最下面的合计的那一行是怎么加的??希望楼主指点一下,谢谢!Ansewr:合计行添加代码:'*****************************************

9、'显示计算合计行.Rows=.Rows+1Dimr&,c&,tot!Forc=1To.Cols-1tot=0Forr=1To.Rows-2tot=tot+.valueMatrix(r,c)Next.TextMatrix(r,c)=totNext'*****************,'在合计头列标明合计,合并单元格'ForI=0To1.TextMatrix(.Rows-1,0)="合计"'.FixedAlignment(I)=4'Next.MergeCells=flexMergeFixedOnly.MergeRow(r)=Tr

10、ue9,怎么样点击一条VSFlexgrid控件里的记录时下面的TEXT控件就显示相应的内容?Ansewr:text1=fg.TextMatrix(fg.RowSel,2)'显示第二列信10,如果想把某一列设置成下拉匡中选择,只能写成grid.colcombolist(1)="a

11、b

12、c"吗

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。