VB数据库编程中MSHFlexGrid控件用法详解.doc

VB数据库编程中MSHFlexGrid控件用法详解

添加MSHFlexGrid将Name改成flex1

添加text将name改成txtedit

Publicrs1AsNewADODB.Recordset,rs2AsNewADODB.Recordset'定义数据集对象
DimiAsInteger,jAsInteger
SubEditKeyCode(MSHFlexGridAsControl,EdtAsControl,KeyCodeAsInteger,ShiftAsInteger)
'标准编辑控件处理。
SelectCaseKeyCode
Case27'ESC:隐藏焦点并将其返回MSFlexGrid
Edt.Visible=False
MSHFlexGrid.SetFocus
Case13'ENTER将焦点返回MSFlexGrid。
MSHFlexGrid.SetFocus
DoEvents
IfMSHFlexGrid.Col<MSHFlexGrid.Cols-1Then
MSHFlexGrid.Col=MSHFlexGrid.Col+1
Else
IfMSHFlexGrid.Col=MSHFlexGrid.Cols-1Then
MSHFlexGrid.Row=MSHFlexGrid.Row+1
MSHFlexGrid.Col=1
EndIf
EndIf
Case38'向上
MSHFlexGrid.SetFocus
DoEvents
IfMSFlexGrid.Row>MSFlexGrid.FixedRowsThen
MSFlexGrid.Row=MSFlexGrid.Row-1
EndIf
EndSelect
EndSub
Subview_DP()
Ifflex1.Col=4Orflex1.Col=5Orflex1.Col=6Then
'格式化Flex1表的第7列、第8列、第9列、第11列
flex1.TextMatrix(flex1.Row,5)=Format(flex1.TextMatrix(flex1.Row,5),"0.00")
flex1.TextMatrix(flex1.Row,6)=Val(flex1.TextMatrix(flex1.Row,4))*Val(flex1.TextMatrix(flex1.Row,5))
flex1.TextMatrix(flex1.Row,6)=Format(flex1.TextMatrix(flex1.Row,6),"0.00")
EndIf
DimA,BAsSingle'声明单精度浮点型变量
OnErrorResumeNext
Fori=1Toflex1.Rows-1
Ifflex1.TextMatrix(i,1)<>""Andflex1.TextMatrix(i,4)<>""Andflex1.TextMatrix(i,6)<>""Then
A=Val(flex1.TextMatrix(i,6))+A'求合计金额
B=Val(flex1.TextMatrix(i,4))+B'求合计数量
EndIf
Nexti
lblCount=B
lblSum=Format(A,"0.00")'格式化合计金额
EndSub
SubSetButtons(bValAsBoolean)
cmdRegister.Enabled=NotbVal
cmdSave.Enabled=bVal
cmdCancel.Enabled=bVal
flex1.Enabled=bVal
Frame1.Enabled=bVal
EndSub
PrivateSubDataGrid2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThen
WithAdodc2.Recordset
'赋值给flex1表格
If.Fields("商品名称")<>""Thenflex1.TextMatrix(flex1.Row,1)=Trim(.Fields("商品名称"))
If.Fields("规格")<>""Thenflex1.TextMatrix(flex1.Row,2)=Trim(.Fields("规格"))
If.Fields("单位")<>""Thenflex1.TextMatrix(flex1.Row,3)=Trim(.Fields("单位"))
flex1.TextMatrix(flex1.Row,5)=.Fields("成本价")
EndWith
flex1.Col=4
DataGrid2.Visible=False'DataGrid2不可见
txtEdit.Text=""
txtEdit.SetFocus
EndIf
IfKeyCode=vbKe