資源描述：
《vsflexgrid msflexgrid控件的技術(shù)問題》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、VSFlexgridMSFlexGrid控件的技術(shù)問題1,如果想把某一列設(shè)置成下拉框中選擇，只能寫成grid.colcombolist(1)="a
2、b
3、c"嗎？能不能把下拉框中的數(shù)據(jù)和recordset或數(shù)組綁定。答案:grid.colcombolist(1)＝grid.buildcombolist(rs!abc)2,怎樣限定第三列可編輯,其他列不可編輯?答案:PrivateSubfg_BeforeEdit(ByValRowAsLong,ByValColAsLong,CancelAsBoolean)'*******先將設(shè)ed
4、itable=2'限定不可編輯列,如有5列IfCol=0ThenCancel=TrueIfCol=1ThenCancel=TrueIfCol=2ThenCancel=TrueIfCol=4ThenCancel=TrueIfCol=5ThenCancel=TrueEndSub3、怎么獲得當(dāng)前單元個(gè)的位置，比如某單元個(gè)獲得焦點(diǎn)，彈出msgbox("你選的是第4行第5列")Answer:PrivateSubVSFlexGrid1_Click()Dima,bAsLonga=VSFlexGrid1.Rowb=VSFlexGrid1.C
5、olMsgBox"你選的是"&a&"行"&b&"列"EndSub4,對(duì)vsflexgrid進(jìn)行編輯的時(shí)候，讓vsflexgrid的某列只能輸入數(shù)字?Answer:PrivateSubCheckData(KeyAsciiAsInteger)IfKeyAscii>=48AndKeyAscii<=57ThenExitSub'如果是數(shù)字退出IfKeyAscii<>8ThenKeyAscii=0EndSubPrivateSubvsflexgrid_KeyPressEdit(ByValRowAsLong,ByValColAsLong,K
6、eyAsciiAsInteger)Ifcol=1Then'第一列只能輸入數(shù)字CheckDataKeyAsciiEndIfEndSub5,限制某列只能輸入數(shù)字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,如何指定一列的輸入格式例如：顯示有小數(shù)點(diǎn)后3位（是整數(shù)的話顯示.000；沒有達(dá)到3位顯示.200（追加0）；超過的4舍五入）例如：顯示有小數(shù)點(diǎn)后3位（是整數(shù)的話顯示.000；沒有達(dá)到3位顯示.200（追加0）；超過的4舍五入）Answer:iffg.col=5then'第五行fori=1tofg.rows-1fg.TextMatrix(i,5)=format(fg.TextMatrix(i,5),"##0.000")nextiendif7,在一個(gè)單元格
8、輸入好數(shù)字回車，下一單元格（或者下一行第一個(gè)）自動(dòng)獲得焦點(diǎn)。這個(gè)怎么實(shí)現(xiàn)？這個(gè)怎么實(shí)現(xiàn)？Answer:試試這個(gè),,,,,'Withfg'If.Col=.Cols-1Then''如果到了最右邊的列就跳到下一行第一個(gè)可非固定列''.Row=Row+1'.Col=.FixedCols'Else''向右移動(dòng)一列'.Col=Col+1'EndIf'EndWith8,最下面的合計(jì)的那一行是怎么加的？？希望樓主指點(diǎn)一下，謝謝！Ansewr:合計(jì)行添加代碼:'*****************************************
9、'顯示計(jì)算合計(jì)行.Rows=.Rows+1Dimr&,c&,tot!Forc=1To.Cols-1tot=0Forr=1To.Rows-2tot=tot+.valueMatrix(r,c)Next.TextMatrix(r,c)=totNext'*****************,'在合計(jì)頭列標(biāo)明合計(jì),合并單元格'ForI=0To1.TextMatrix(.Rows-1,0)="合計(jì)"'.FixedAlignment(I)=4'Next.MergeCells=flexMergeFixedOnly.MergeRow(r)=Tr
10、ue9,怎么樣點(diǎn)擊一條VSFlexgrid控件里的記錄時(shí)下面的TEXT控件就顯示相應(yīng)的內(nèi)容？Ansewr:text1=fg.TextMatrix(fg.RowSel,2)'顯示第二列信10,如果想把某一列設(shè)置成下拉匡中選擇，只能寫成grid.colcombolist(1)="a
11、b
12、c"嗎
