代码修改很简单的哦，可是我不会：（

[bluesanke]

If Combo1.Enabled = True And Combo2.Enabled = False And Combo3.Enabled = False Then
Dim cnstring As String '用于存放连接字符串的
cnstring = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"
Mycn.Open cnstring
Mycn.CursorLocation = adUseClient


Myrs1.Open "select * from XZ_XZGL_GWSFCLDJB where trim(XXG_LWDW)='" & Trim(Combo1.Text) & "'", Mycn

MSHFlexGrid1.Clear
。。。。。。。。。。。。。。。。。。。。。。。。。。。。
TableInit
While Myrs1.EOF = False

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Text = Myrs1.Fields("XXG_SXH") & ""
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Text = Myrs1.Fields("XXG_SWRQ") & ""
Myrs1.MoveNext
Wend

Myrs1.Close
Mycn.Close
End If
要求是从第0行开始显示，不要表头了，可以显示很多组数据的，我要把TableInit删除的话为什么，第0行老是空的呢？

[gxhwq]

TableInit--这个是什么东东啊？

[rappercn]

While Myrs1.EOF = False

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Text = Myrs1.Fields("XXG_SXH") & ""
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Text = Myrs1.Fields("XXG_SWRQ") & ""
Myrs1.MoveNext
Wend

改成这样试试：

MSHFlexGrid1.rows = Myrs1.RecordCount

For i = 1 To Myrs1.RecordCount

MSHFlexGrid1.TextMatrix(i - 1, 0) = Myrs1.Fields("XXG_SXH") & ""
MSHFlexGrid1.TextMatrix(i - 1, 1) = Myrs1.Fields("XXG_SWRQ") & ""
Myrs1.MoveNext
Next i




TableInit是个什么东西？

[bluesanke]

TableInit是表头，我解决了：）