代码修改很简单的哦,可是我不会:(

bluesanke 2003-06-10 05:45:29
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行老是空的呢?
...全文
12 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
bluesanke 2003-06-11
TableInit是表头,我解决了:)
回复
rappercn 2003-06-10
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是个什么东西?
回复
gxhwq 2003-06-10
TableInit--这个是什么东东啊?
回复
相关推荐
发帖

1184

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-06-10 05:45
社区公告
暂无公告