SHFlexGrid1.Row
MSHFlexGrid1.TextMatrix(getrow,0)=rstemp.Fields(7)
MSHFlexGrid1.TextMatrix(getrow,1)=rstemp.Fields(8)
MSHFlexGrid1.TextMatrix(getrow,2)=Val(rstemp.Fields(14))-
Val(rstemp.Fields(3))
rstemp.MoveNext
Loop
EndIf
EndSub
PublicSubsetgrid()
DimiAsInteger
GoToseterror
WithMSHFlexGrid1
.ScrollBars=flexScrollBarBoth
.FixedCols=1
.Rows=rstemp.RecordCount+1
.Cols=5
.SelectionMode=flexSelectionByRow
Fori=0To.Rows-1
.RowHeight(i)=315
Next
Fori=0To.Cols-1
.ColWidth(i)=1500
Nexti
EndWith
ExitSub
seterror:
MsgBoxErr.Description
EndSub
PublicSubsetgridhead()
GoTosetheaderror
MSHFlexGrid1.Row=0
MSHFlexGrid1.Col=0
MSHFlexGrid1.Text="商品编号"
MSHFlexGrid1.Col=1
MSHFlexGrid1.Text="商品名"
MSHFlexGrid1.Col=2
MSHFlexGrid1.Text="利润"
ExitSub
setheaderror:
MsgBoxErr.Description
EndSub
PublicSubdisplaygrid1()
MSHFlexGrid2.Row=0
IfNotrstemp.EOFThen
rstemp.MoveFirst
DoWhileNotrstemp.EOF
MSHFlexGrid2.Row=MSHFlexGrid2.Row+1
WithMSHFlexGrid2
.Col=0
.Text=rstemp.Fields(7)
.Col=1
.Text=rstemp.Fields(8)
.Col=2
.Text=Val(rstemp.Fields(14))-Val(rstemp.Fields(3))
EndWith
rstemp.MoveNext
Loop
EndIf
EndSub
PublicSubsetgrid1()
DimiAsInteger
GoToseterror
WithMSHFlexGrid2
.ScrollBars=flexScrollBarBoth
.FixedCols=1
.Rows=rstemp.RecordCount+1
.Cols=5
.SelectionMode=flexSelectionByRow
Fori=0To.Rows-1
.RowHeight(i)=315
Next
Fori=0To.Cols-1
.ColWidth(i)=1500
Nexti
EndWith
ExitSub
seterror:
MsgBoxErr.Description
EndSub
PublicSubsetgridhead1()
GoTosetheaderror
MSHFlexGrid2.Row=0
MSHFlexGrid2.Col=0
MSHFlexGrid2.Text="商品编号"
MSHFlexGrid2.Col=1
MSHFlexGrid2.Text="商品名"
MSHFlexGrid2.Col=2
MSHFlexGrid2.Text="数量"
ExitSub
setheaderror:
MsgBoxErr.Description
EndSub
??
??
??
??
1
上一篇:
VBAC房屋销售管理信息系统(论文和程序)
下一篇:
关联分类方法在铝电解中的应用研究