解决求助!!关于datagrid的 非常简单的问题如何用程序连接datragrid 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果你说的是连接datagrid 而不是datragrid的话:直接设定datagrid的datasource为一个打开的记录集就可以了。 给个例子: With Rs .CursorLocation = adUseClient .CursorType = adOpenForwardOnly .LockType = adLockReadOnly .Open cmd If Not .EOF Then DataGrid2.Visible = False DataGrid2.Columns(0).DataField = .Fields("Material_Code").Name DataGrid2.Columns(1).DataField = .Fields("Material_Name").Name Set DataGrid2.DataSource = Rs DataGrid2.Columns(0).Caption = "物料代码" DataGrid2.Columns(1).Caption = "物料名称" DataGrid2.Visible = True DataGrid2.Refresh Else Set DataGrid2.DataSource = Rs DataGrid2.Visible = False End If End With 急求c++或vb编程题,救命用 用vb开发一个的浏览器 關于發消息的問題 (熟悉消息處理的高手請進) 坐标计算问题。。。。。。问题解决两贴200分奉上 xml 怎么实现 匹配查询 及字段和统计?? 求助--简单的聊天通信软件 坐标系旋转的问题 www.01cn.net > 阿朱(吕建伟)专区 > 阿朱原创 Dragover事件什么情况下触发 哪位大哥哥可以帮我使用INSTALLSHIELD我试过用了可不会用,各位大哥哥教我一下好吗,小妹在此先谢谢了。 碰到很难解决的问题 寻求ActiveSkin.ocx控件
直接设定datagrid的datasource为一个打开的记录集就可以了。
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.Open cmd
If Not .EOF Then
DataGrid2.Visible = False
DataGrid2.Columns(0).DataField = .Fields("Material_Code").Name
DataGrid2.Columns(1).DataField = .Fields("Material_Name").Name
Set DataGrid2.DataSource = Rs
DataGrid2.Columns(0).Caption = "物料代码"
DataGrid2.Columns(1).Caption = "物料名称"
DataGrid2.Visible = True
DataGrid2.Refresh
Else
Set DataGrid2.DataSource = Rs
DataGrid2.Visible = False
End If
End With