关于ADO的问题,请教一下! 通过对DATAGRID行列的控制,将字段的值依次赋给每个单元格 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 能不能说的清楚点,如果按你的方法可能要做很久的。如果改用ADO控件应该怎么写呢? 你的Rs是RecordSet对吧很简单看我的一个例子你应该明白了!! 'MyServerinfo即是你的Rs 'DgServer是DataGride控件名 Set DgServer.DataSource = MyServerinfoWith DgServer '如为空则退出 If MyServerinfo.EOF = True And MyServerinfo.BOF = True Then Exit Sub MyServerinfo.MoveLast .Columns(0).Caption = "编号" .Columns(1).Caption = "服务器名称" .Columns(2).Caption = "系统目录" .Columns(3).Caption = "服务器IP地址" .Columns(3).Width = 2000 .Columns(0).DataField = MyServerinfo.Fields("SysAttribe").Name .Columns(1).DataField = MyServerinfo.Fields("ServerName").Name .Columns(2).DataField = MyServerinfo.Fields("SysDirect").Name .Columns(3).DataField = MyServerinfo.Fields("serverip").Name .Columns(0).Alignment = dbgLeft.RefreshEnd With 绑定到datagrid然后设置datagrid的datafield属性你可以在程序中写也可以手工设置控件的属性 怎样能够取回字符周边的空白大小? vb如何得到系统路径? 怎么用VB设计一个能自动发邮件的程序 MDI窗体中可否将进度条放在状态条的指定panel中? 给份,在线,如何创建文件 请教高手:VB中检索大文件时如何降低计算机的CPU占用率? 江湖救急!!关天printform方法的问题!!! 如何减少软件占用的内存? 运行EXE文件可以给他传递参数 在那个事件里可以捕捉?Load里么 怎么得到参数值? 上司派下来紧急任务,估计我个人力量是不行了,请求各位朋友帮助,我就这么点分了,请大家见凉 怎么给工具栏上的按钮设置快捷键 高分咨询microsoft script control控件的使用方法
如果改用ADO控件应该怎么写呢?
'MyServerinfo即是你的Rs
'DgServer是DataGride控件名 Set DgServer.DataSource = MyServerinfoWith DgServer
'如为空则退出
If MyServerinfo.EOF = True And MyServerinfo.BOF = True Then Exit Sub
MyServerinfo.MoveLast
.Columns(0).Caption = "编号"
.Columns(1).Caption = "服务器名称"
.Columns(2).Caption = "系统目录"
.Columns(3).Caption = "服务器IP地址"
.Columns(3).Width = 2000
.Columns(0).DataField = MyServerinfo.Fields("SysAttribe").Name
.Columns(1).DataField = MyServerinfo.Fields("ServerName").Name
.Columns(2).DataField = MyServerinfo.Fields("SysDirect").Name
.Columns(3).DataField = MyServerinfo.Fields("serverip").Name
.Columns(0).Alignment = dbgLeft.Refresh
End With
然后设置datagrid的datafield属性你可以在程序中写也可以手工设置控件的属性