我使用了一个mshflexgrid控件a来显示数据表的记录。
数据表的定义是: 客户编号 int
地址 char(20) sql server 2000中定义的
然后我把表的所有记录都显示在a上。结果是
客户编号 地址
1 武汉
2 北京
3 上海
4 西安
并且在 客户编号
1
2
3
4
的左边还有一些格子,不可以编辑。我想把它们消去。因为不然那样外观很难看,占了空间,又没有显示信息。不知道该如何处理。
还有
我写了
Private Sub a_Click()
Debug.Print Str$(a.Col) & "+" & Str$(a.Row)
Debug.Print Str$(a.TextMatrix(a.Col, a.Row))
End Sub
但是,只有当点击客户编号为1的那个地方时,有结果。其他的地方都说越界了。
因为我是想点击“2”时就可以把2提取出来,点击“上海”时,就可以把上海提取出来,不知道该如何实现。
谢谢了
数据表的定义是: 客户编号 int
地址 char(20) sql server 2000中定义的
然后我把表的所有记录都显示在a上。结果是
客户编号 地址
1 武汉
2 北京
3 上海
4 西安
并且在 客户编号
1
2
3
4
的左边还有一些格子,不可以编辑。我想把它们消去。因为不然那样外观很难看,占了空间,又没有显示信息。不知道该如何处理。
还有
我写了
Private Sub a_Click()
Debug.Print Str$(a.Col) & "+" & Str$(a.Row)
Debug.Print Str$(a.TextMatrix(a.Col, a.Row))
End Sub
但是,只有当点击客户编号为1的那个地方时,有结果。其他的地方都说越界了。
因为我是想点击“2”时就可以把2提取出来,点击“上海”时,就可以把上海提取出来,不知道该如何实现。
谢谢了
Public Sub getrow()
Dim i As Integer
With Form1.MSFlexGrid1
.Col = 0
Text1.Text = .Text
.Col = 1
Text2.Text = .Text
End With
End Sub
Debug.Print Str$(a.TEXT)
Debug.Print Str$(a.TextMatrix(a.Col, a.Row)) 改为 Debug.Print Str$(a.TextMatrix(a.Row, a.Col))