显示完数据后,建立一个FOR语句,遇有奇数的是一种颜色,遇有偶数的是另一种颜色。
解决方案 »
- 为何在还没按update时,修改datagrid里面的数据后,就直接影响了数据库里面的数据了?
- 有什么AIP取出系统秒数的状态值
- 传输图片一定要用 wskClient.GetData FileByte, vbArray + vbByte 字节数组吗?
- 请问大哥,vb自带的Api文本浏览器中的Api函数是不是不包括所有的windows API函数?
- 怎样才可知道DATA控件已取回了所有的更新数据?
- 加了一个角,散分
- 如何在文本框中输入外文(如韩文,日文)急需!!!!!!!!
- 仍然是Excel的问题,不用connection,直接得到文件,进行操作
- 如何在局域网上通过IPX协议,关闭对方机器.请详细说明该API.
- 为什么我的VB的一些控件不能再用了?只能在设计环境用!编译就不能用?
- 请教:怎样在不使用ADODC的情况下用代码使用DataGrid控件(最好有例子)
- 请问打开一个文件后,怎样将文件指针直接指向文件尾?
' Author:吴文智
' Date:2001-1
'Description:要试用本例请在窗体中填加 一个MSFlexGrid
' 然后在代码窗体中粘贴如下代码
' Good luck!Private Sub Form_Load()
Dim lngRow As Long
Dim lngCol As Long
Dim lngColor As Long
With MSFlexGrid1
.Rows = 10
For lngRow = .FixedRows To .Rows - 1
If (lngRow Mod 2) = 0 Then
lngColor = vbRed
Else
lngColor = vbBlue
End If
.Row = lngRow
For lngCol = .FixedCols To .Cols - 1
.Col = lngCol
.CellBackColor = lngColor
Next
Next
End With
End Sub