通过对DATAGRID行列的控制,将字段的值依次赋给每个单元格

解决方案 »

  1.   

    能不能说的清楚点,如果按你的方法可能要做很久的。
    如果改用ADO控件应该怎么写呢?
      

  2.   

    你的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.Refresh
    End With
      

  3.   

    绑定到datagrid
    然后设置datagrid的datafield属性你可以在程序中写也可以手工设置控件的属性