用VB实现类电子表格的数据录入

Grid1.SelStartRow = Grid1.SelStartRow 1
Else
Grid1.SelStartRow = Grid1.Rows - 1
End If
End If
Else
If Grid1.TopRow = Grid1.SelStartRow - inputrownum Then
VScroll1.Value = VScroll1.Value 1
Else
Grid1.SelStartRow = Grid1.SelStartRow 1
End If
End If

Grid1.Col = Grid1.SelStartCol
Grid1.Row = Grid1.SelStartRow
colnum = Grid1.Col - Grid1.LeftCol 1
rownum = Grid1.Row - Grid1.TopRow 1
Text1.Text = Grid1.Text
Text1.Left = Grid1.Left (Grid1.ColWidth(0)
Grid1.GridLineWidth * 12) * colnum
Text1.Top = Grid1.Top (Grid1.RowHeight(0)
Grid1.GridLineWidth * 12) * rownum

Exit Sub

上一篇： 用Visual Basic开发数据库浏览器
下一篇： Access下如何使用通用对话框

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!