1 不清楚,我目前也不能解决2 Private Sub Command2_Click()Set DataGrid1.DataSource = NothingDataGrid1.RefreshEnd Sub3Private Sub Command3_Click()Set text1.DataSource = adodc2text1.datafield=xf_idEnd Sub