Question

vb2010 DataGridView用法

怎样显示ado控件查询到的数据集

例如：
Model1.vb中：

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public ConnStr As String
Public CmdStr As String
Public Sub MainAdodb()
conn.Open(ConnStr)
rs.Open(CmdStr, conn, 1, ADODB.LockTypeEnum.adLockOptimistic)
End Sub

当窗口中
connstr= "..."
cmdstr= "select..."
MainAdodb()

后怎样让窗体中DataGridView1控件将查询的结果显示出来？
主意是VB2010

Answer 1

DataGridView新加行的默认值的设定，可以在DataGridView.DefaultValuesNeeded事件里处理。

// DefaultValuesNeeded 事件处理方法
private void DataGridView1_DefaultValuesNeeded(object sender,
    DataGridViewRowEventArgs e)
{
    // 设定单元格的默认值
    e.Row.Cells["Column1"].Value = 0;
    e.Row.Cells["Column2"].Value = "-";
}

DataGridView获得焦点：

dgv_details.Focus();

DataGridView指定当前单元格：

dgv_details.CurrentCell = dgv_details[0, 0]; 
#开始编辑状态 
dgv_details.BeginEdit(false);
#单元格颜色（前景色和背景色）
dgv.Rows[0].Cells[0].Style.BackColor = Color.DarkOrange;
dgv.Rows[1].Cells[0].Style.ForeColor = Color.DarkRed;

DataGridView中删除行主要代码：

private void btnDelete_Click(object sender, EventArgs e)
        {
            //判断用户是否选择一行数据，true为没选择，false为选择
            if (this.dgv.Rows[this.dgv.CurrentRow.Index].Cells[0].Value.ToString()=="")
            {
                MessageBox.Show("请选择一项进行删除");
            }
            else
            {
                //判断用户是否点击确定按钮，true为点击，false为没有点击
                if (MessageBox.Show("确认删除？","提示", MessageBoxButtons.YesNo)==DialogResult.Yes)
                {
                    //定义数组，用循环赋值
                    String[] array = new String[];
                    for (int i = 0; i < this.dgv.SelectedRows.Count; i++)
                    {
                        String str = this.dgv.Rows[this.dgv.SelectedRows[i].Index].Cells[0].Value.ToString();
                        String strDelete = "Delete from students where StudentNumber='" + str + "'";
                        array[i] = strDelete;
                    }
                    //遍历数组
                    foreach (String str in array)
                    {
                        this.Update(str);
                    }
                        //这里写刷新的方法
                }
            }
        }

Answer 2

既然你是引用COM组件中的ADODB来打开数据库 返回数据集RS 那么你就对应用COM组件里的DataGrid控件来显示数据 即可 写法和VB6时一样 只不过不需要set 直接对datasource赋值rs即可

追问

我用的是VB2010，不一样，而且直接使用Set DataGridView1.DataSoure = rs会直接自动把set消掉，而且运行时候是没效果的，真这么简单的话我就不问了

追答

就是因为知道你用的是VB.NET 才这么回答你的 不懂么？
Public conn As New ADODB.Connection 是VB6的写法 虽然VB.NET也可以用 但却需要引用ADO 后才能这么写
.net里的DataGridView的datasource需要赋值是dataset 不是rs 可明白？

追问

那您说的“只不过不需要set 直接对datasource赋值rs即可”是应该怎样做？就按照问题里的，后面怎样接代码？

追答

DataGrid1.datasource=rs DataGrid是COM组件非DataGridView1

追问

vs2010中的组件名是DataGridView，找不到你说的DataGrid，VS2010中的VB，都说了和VB6.0不一样

追答

说了那么多 白说了~~~
工具箱--随便空白处 右键鼠标--菜单--选择项--COM组件--列表中选择 DATAGRID控件

追问

选用了framework内的DATAGRID，然后使DataGrid1.datasource=adodc或者等于rs
提示
复杂的 DataBinding 接受 IList 或 IListSource 作为数据源。

追答

那是你添加错控件了~~