- 博客(4)
- 收藏
- 关注
原创 设置MSHFlexGrid的行标题和列标题
使用MSHFlexGrid的FormatString属性可以做到一次设置行标题和列标题 Dim sTitle As String sTitle = "" sTitle = sTitle + ";|Robert|Jimmy|Bonzo|John Paul" MSHFlexGrid.FormatString = sTitle
2004-01-27 21:08:00 2867
原创 避开MSHFlexGrid无法定位的问题
在使用MSHFlexGrid显示数据时,如果先将一个空的Recorde对象绑定到MSHFlexGrid。然后再重新绑定一个有记录的Recorde对象,那么就会出现鼠标无法定位的问题。解决办法是不要让MSHFlexGrid绑定空的Recorde对象。即在绑定前测试Recorde对象是否为空,不为空才能绑定。
2004-01-27 21:08:00 1019
原创 美化 MSHFlexGrid,隔行设置颜色的通用函数
设置MSHFlexGrid每行的颜色Public Sub SetRowColor(ByRef MSHFlexGrid As Object) Dim j, i, objName objName = TypeName(MSHFlexGrid) If StrConv(Trim(objName), vbUpperCase) Exit Sub End If
2004-01-27 21:07:00 1709
原创 让MSHFlexGrid不再显示多余的小数
用MSHFlexGrid显示小数时,它会显示小数点后很多位。而平时我们只需要精确到小数点后两位即可。下面就用SQL语句来解决这个问题。 Dim sql As String sql = "select format(折扣,##0.00) as 折扣 from Table1" rst.CursorLocation = adUseClient rst.Open s
2004-01-27 21:06:00 1974
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人