VB程序运行时对MSFlexGrid单元格数据进行计算

程序运行时对MSFlexGrid单元格数据进行计算2008-01-20 15:18Dim i As Integer '定义整型变量
Private Sub Form_Activate()
'设置MSFlexGrid控件的总行数
MSFlexGrid1.Rows = 13
'设置MSFlexGrid控件的总列数
MSFlexGrid1.Cols = 8
'设置MSFlexGrid控件的列宽
MSFlexGrid1.ColWidth(0) = 12 * 25 * 1
MSFlexGrid1.ColWidth(1) = 12 * 25 * 3
MSFlexGrid1.ColWidth(2) = 12 * 25 * 5
MSFlexGrid1.ColWidth(3) = 12 * 25 * 3
MSFlexGrid1.ColWidth(4) = 12 * 25 * 3
MSFlexGrid1.ColWidth(5) = 12 * 25 * 2
MSFlexGrid1.ColWidth(6) = 12 * 25 * 3
MSFlexGrid1.ColWidth(7) = 12 * 25 * 3.5
'设置MSFlexGrid控件的固定行数
MSFlexGrid1.FixedRows = 1
'设置MSFlexGrid控件的固定列数
MSFlexGrid1.FixedCols = 1
'设置MSFlexGrid控件的表头信息
MSFlexGrid1.TextMatrix(0, 0) = "xh"
MSFlexGrid1.TextMatrix(0, 1) = " 批号"
MSFlexGrid1.TextMatrix(0, 2) = " 药品名称"
MSFlexGrid1.TextMatrix(0, 3) = " 规格"
MSFlexGrid1.TextMatrix(0, 4) = " 数量"
MSFlexGrid1.TextMatrix(0, 5) = " 单位"
MSFlexGrid1.TextMatrix(0, 6) = " 单价"
MSFlexGrid1.TextMatrix(0, 7) = " 金额"
'为MSFlexGrid控件设置序号
For i = 1 To 12