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

下载本文档

阅读 199
下载 3
格式 pdf
大小 90.03 KB
约7页
2024-12-17 发布于天津市
收藏
评论
点赞(0)
海报
举报

1/7页

2/7页

3/7页

在线预览已结束，请下载后查看完整版，加入VIP享文档下载特权

文本预览下载提示常见问题

VB 数据库编程中 MSHFlexGrid 控件用法详解添加 MSHFlexGrid 将 Name改成 flex1添加 text将 name改成 txteditPublicrs1AsNewADODB.Recordset,rs2AsNewADODB.Recordset'定义数据集对象DimiAsInteger,jAsIntegerSubEditKeyCode(MSHFlexGridAsControl,EdtAsControl,KeyCodeAsInteger,ShiftAsInteger)'标准编辑控件处理。SelectCaseKeyCodeCase27'ESC:隐藏焦点并将其返回 MSFlexGridEdt.Visible=FalseMSHFlexGrid.SetFocusCase13'ENTER将焦点返回 MSFlexGrid。MSHFlexGrid.SetFocusDoEventsIfMSHFlexGrid.ColMSFlexGrid.FixedRowsThenMSFlexGrid.Row=MSFlexGrid.Row-1EndIfEndSelectEndSubSubview_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")EndIfDimA,B AsSingle'声明单精度浮点型变量OnErrorResumeNextFori=1Toflex1.Rows-1Ifflex1.TextMatrix(i,1)<>""Andflex1.TextMatrix(i,4)<>""Andflex1.TextMatrix(i,6)<>""ThenA=Val(flex1.TextMatrix(i,6))+A'求合计金额B=Val(flex1.TextMatrix(i,4))+B'求合计数量EndIfNextilblCount=BlblSum=Format(A,"0.00")'格式化合计金额EndSubSubSetButtons(bValAsBoolean)cmdRegister.Enabled=NotbValcmdSave.Enabled=bValcmdCancel.Enabled=bValflex1.Enabled=bValFrame1.Enabled=bValEndSubPrivateSubDataGrid2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenWithAdodc2.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("成本价")EndWithflex1....

1、当您付费下载文档后，您只拥有了使用权限，并不意味着购买了版权，文档只能用于自身使用，不得用于其他商业用途（如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利）。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。
3、如文档内容存在违规，或者侵犯商业秘密、侵犯著作权等，请点击“违规举报”。

碎片内容

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

VB 数据库编程中 MSHFlexGrid 控件用法详解添加 MSHFlexGrid 将 Name改成 flex1添加 text将 name改成 txteditPublicrs1AsNewADODB

Recordset,rs2AsNewADODB

Recordset'定义数据集对象DimiAsInteger,jAsIntegerSubEditKeyCode(MSHFlexGridAsControl,EdtAsControl,KeyCodeAsInteger,ShiftAsInteger)'标准编辑控件处理

SelectCaseKeyCodeCase27'ESC:隐藏焦点并将其返回 MSFlexGridEdt

Visible=FalseMSHFlexGrid

SetFocusCase13'ENTER将焦点返回 MSFlexGrid

MSHFlexGrid

SetFocusDoEventsIfMSHFlexGrid

ColMSFlexGrid

FixedRowsThenMSFlexGrid

Row=MSFlexGrid

Row-1EndIfEndSelectEndSubSubview_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

您可能关注的文档

小辰 + 关注: 实名认证
内容提供者

出售各种文档和资料

收藏店铺进入空间

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

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

您可能关注的文档

相关文档

热门下载

相关标签