有方法在MSFlexGrid 控件中查找一列或者几列吗??
MSFlexGrid的数据是由 ado 查找的 Recordset ,谢了!!
MSFlexGrid的数据是由 ado 查找的 Recordset ,谢了!!
解决方案 »
- 十年了 难道是硬件速度快了120倍至少?
- 用VB怎样可以录下系统播放器放出各种型的声音呢,可以将它存进数据库吗?该如何存呢!
- 箭头键的问题
- 如何判断一条记录的一个字段为空???????
- 用“RecordCount”得不到一个记录集的行数怎么办?
- 鼠标右键单击光驱盘符,只有“弹出”菜单,怎么加入“关闭”菜单?
- 我如何将RichTextBox中输入的字符和汉字放入byte的数组中???
- vb 6.0生成不了exe文件的怪事!急~~~~~~~~~~~
- 谁想让vb灭亡?
- 为什么我的VB数据库的where死都运行出错,求解惑,找了几天资料都没搞定
- 连接数据库的小问题!
- VB中用二进制方式打开文件错误,内容比源文件长??欢迎使用文件IO的同学来讨论。
rs.open"select * from people where name='"&Jesse&"'",conn,3,1找倒那一條過後,去移動,方法其實都是一樣的'--如何更改DataGrid中間第三行Name列的記錄
Private Sub Command2_Click()
'--將記錄重新定位在第3條記錄
Rs.Move 2, 1
'--更改Recordset的Name字段
Rs("Name") = "Rose"
Rs.Update
End Sub
Public Sub FindData(MshGrid As MSHFlexGrid, CboText As String, TxtText As String)
On Error Resume Next
Dim gRows As Integer
Dim gCols As Integer
For gCols = 0 To MshGrid.Cols - 1
If Left(Trim(MshGrid.TextMatrix(0, gCols)), Len(CboText)) = CboText Then Exit For
Next gCols For gRows = 1 To MshGrid.Rows - 1
If MshGrid.TextMatrix(gRows, gCols) = TxtText Then Exit For
Next gRows
If gRows = MshGrid.Rows Then MsgBox "未找到", vbInformation + vbOKOnly, "提示": Exit Sub
MshGrid.TopRow = gRows
MshGrid.Row = gRows
MshGrid.Col = 0
MshGrid.ColSel = 0
MshGrid.ColSel = MshGrid.Cols - 1
End Sub