1188
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
RUKYO 2004-09-18
Set MSHFlexGrid1.DataSource = rs1
rs1是对象，所以要用Set将对象引用赋给MSHFlexGrid1的DataSource属性。
rs1是对象，所以要用Set将对象引用赋给MSHFlexGrid1的DataSource属性。
wumylove1234 2004-09-18
set MSHFLEXGrid1.DataSource=rs1
zhang5180 2004-09-17
给出一个完整的代码
yedapeng 2004-09-17
你可以把记录集读取出来，然后再放入控件中．
bboos 2004-09-16
conn.CursorLocation = adUseClient
Abyss-Xu 2004-09-16
rs.open "select * from tablename",conn,adopenkeyset,adlockreadonly
注意后面的参数
adopenkeyset 为打开一个dynasel型Recordset对象
adlockreadonly 为缺省值，只读
adlockpessimistic 为保守式，一条记录接着一条记录
adlockbatchOptimistic 开放式更新批处理数据
注意后面的参数
adopenkeyset 为打开一个dynasel型Recordset对象
adlockreadonly 为缺省值，只读
adlockpessimistic 为保守式，一条记录接着一条记录
adlockbatchOptimistic 开放式更新批处理数据
jetzhy 2004-09-16
与 “Leftie(左手,为人民币服务)”意见一致，我也碰到过这种情况。
饮水需思源 2004-09-16
'可能是rs的打开方式有问题，这样试试：
if rs.state=adstateopen then rs.close
rs.open "select * from tablename",conn,adopenkeyset,adlockreadonly
set mshflexgrid.datasource=rs
rs.close
if rs.state=adstateopen then rs.close
rs.open "select * from tablename",conn,adopenkeyset,adlockreadonly
set mshflexgrid.datasource=rs
rs.close
Mshflexgrid控件填写数据时的添加方式的改变,加快数据读取速度. 1.当然也是初学者最常用的方法，从可理解性和代码量来说都是最简单的了。（以添加连续数字为例） Dim i, j, k As Integer '设置行列数 With MSHFlexGrid1 .Rows = 5 .Cols = 5 End With '添加表头 MSHFlexGrid1...
VB速查大全(数据库、表格及报表编程) ★ VB错误处理，ado常见错误，VB数据类型等，网上有很多教程是错的，强烈建议看此文 vb数据类型(很多程序出问题出在这个，一定要看，VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite (VBRichClient自带的非odbc连接) 有vbRichClient代替winsock、实现vb多线程及远程调用activeX等
不错VB代码，收藏！！！ MsgBox "你够狠,憋了我5000毫秒才放出来" End Sub Private Sub Form_Load() '共三个控件:一个时钟,一个标签,一个按钮 Command1.Caption = "等待5000毫秒" Label1.AutoSize = True Label1.Caption = "这里...
VSFlexGrid使用技巧 如何实现将vsflexgrid中修改的数据反馈到数据库中？ Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long) ... rs.Move vsflexgrid1.Row - 1 rs.Edit If vsflexgrid1.text =
vsflexgrid使用说明 如何实现将vsflexgrid中修改的数据...Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long) rs.MoveFirst '//rs为记录集 rs.Move vsflexgrid1.Row - 1 rs.Edit If vsflexgrid1.text = "" Then...
FlexGrid 属性 方法 BuildComboList() 将数据库中的内容写入下拉框 O.A(rs, FieldList, KeyField, BackColor) CausesValidation ???目标事件确认 O.A = False|True Cell 选择部分的相应准则值 O.A(准则, Row1, Col1, Row2, ...
（9）：标准控件的使用详述（下） （3）以编程方式将数据绑定到 Hierarchical FlexGrid：Set MSHFlexGrid1.DataSource = Rs （4）右击 Hierarchical FlexGrid，然后从快捷菜单中选择“属性”。出现 Hierarchical FlexGrid 的“属性页”对话框。将 ...
vb学习 使用静态变量放置控件: Form1:Label1,Command1 属性设置: cLabel1.Autosize= true代码:Private Sub Command1_Click() Static stflag As Boolean 使用静态变量来保存变量值 If stflag = False Then Label1.Font....
VB控件VSFlexGrid 属性 BuildComboList() 将数据库中的内容写入下拉框 O.A(rs, FieldList, KeyField, BackColor) CausesValidation ???目标事件确认 O.A = False|True Cell 选择部分的相应准则值 O.A(准则, Row1, Col1, Row2, ...
一次帮朋友写VB程序引发的深思 今天帮朋友写VB小程序，一回过头，才知道几乎全不记得了． 这个．所以现在贴一点VB的语法上来吧．真无法 VB有2种方法可以一次性的将字符串放入数组中: 方法一: a=array("abc","abcd","ttt") 方法...
VB6常用方法汇编 使用静态变量放置控件: Form1:Label1,Command1 属性设置: cLabel1.Autosize= true代码:Private Sub Command1_Click() Static stflag As Boolean 使用静态变量来保存变量值 If stflag = False Then Label1.Font....
VB数据库编程 （包括设置表格所可以使用之空间） （二）改变数据库系统环境设置。 （三）针对某个数据库或表格，授予用户存取权限。 （四）对数据库表格建立索引值。 （五）修改数据库表格结构。（新建、删除或是修改表格字段...
重拾VB6（9）：标准控件的使用详述（下） Set MSHFlexGrid1.DataSource = Rs （4）右击 Hierarchical FlexGrid，然后从快捷菜单中选择“ 属性 ”。出现 Hierarchical FlexGrid 的“ 属性页 ”对话框。将 Hierarchical FlexGrid 和一个分层结构的 ...
vb数据库编程（二）--数据控件 而且有一点重要常识：绑定控件实质上是绑定到记录集上的，不要简单地理解为绑定到数据控件或数据环境的Command命令对象上，这是不准确的，你应当试试在代码中直接将DataSource赋值给一个记录集。（注：对于数据对象...
vsgflexgrid控件属性（2） 能不能把下拉框中的数据和 recordset 或数组绑定。 答案:grid.colcombolist(1)＝grid.buildcombolist(rs!abc)2,怎样限定第三列可编辑,其他列不可编辑?答案:Private Sub fg_BeforeEdit(ByVal Row As
