100分求问题！！！！！

[lindy730]

怎么将查到的数据，放到MSHFlexGrid中去啊，急在线等

[TechnoFantasy]

MSFlexGrid中输入数据的源代码, http://xufb.top263.net/vb/vb006.htm

[hoounsoon]

将查询到的数据，一个一个的赋值给mshflexgrid。做一个函数用的时候只要调用一下就可以了。

[lindy730]

怎么做？我是新手

[lindy730]

你的网址暗打不开

[cxianfa]

通过循环将rs一个个填写进去。你试试相关的代码，应该你能做的。

[lindy730]

Public Sub showdata()

Dim j As Integer
Dim i As Integer

Dim mrc As ADODB.Recordset
Set mrc = New ADODB.Recordset
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = False Then
mrc.MoveFirst
With MSF1
.Rows = 50
.Row = 1
Do While Not mrc.EOF
.Rows = .Rows + 1
For i = 1 To mrc.Fields.Count
.TextMatrix(.Row, i) = mrc.Fields(i - 1)
Next i
.Row = .Row + 1
mrc.MoveNext
Loop
End With
Else
If find = True Then
Form4.Hide
Form3.Show
zzz = MsgBox("对不起，没有相关档案记录！", vbOKOnly, "查询")
Form3.ZOrder (0)
Form3.Text1.SetFocus

End If
End If
Set mrc = Nothing
End Sub
我是这样写的，但他抱错了

[vbman2003]

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim strConn As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & App.Path & "\db1.mdb;Persist " _
& "Security Info=False;Jet OLEDB:Database Password="
Set cn = New ADODB.Connection
cn.Open strConn

sql="select * from tb"
Set rs=new ADODB.Recordset
rs.Open Sql, cn, adOpenKeyset, adLockOptimistic

Set MSHFlexGrid1.DataSource = rs

Set cn=Nothing
Set rs=Nothing

以上的代码是直接绑定记录集。
还可以用循环，用MSHFlexGrid.TextMatrix属性一行行写入

[bwldwb6]

楼上正解
支持

[lindy730]

那怎么将MSHFlexGrid所查的数据打印出来呢

[lindy730]

你这是将数据库中所有的数据全查出啊，我要的是将我查出的数据放到MSHFlexGrid中，还有就是怎么将MSHFlexGrid打印出来呢

[1410104]

一般是在mshflexgrid上浮一个textbox，按上面的方面确定行列，将值赋给textbox就行了

[lindy730]

你能给我实例吗？我还是不懂

[cxbkkk]

把你查到的数据连接成字符串，中间用vbTab连接，然后用msflexgrid的additem来添加