试试下面的 public a,b,c Private Sub Command4_Click() DataGrid1.Columns(DataGrid1.Col).Text = Replace(b, a, "已替换", c, 1) DataGrid1.Refresh End SubPrivate Sub Command4_GotFocus() Command4_Click End SubPrivate Sub DataGrid1_Validate(Cancel As Boolean)a = DataGrid1.SelText b = DataGrid1.Text c = DataGrid1.SelStart Cancel = False End Sub
应该怎么做????
public a,b,c
Private Sub Command4_Click()
DataGrid1.Columns(DataGrid1.Col).Text = Replace(b, a, "已替换", c, 1)
DataGrid1.Refresh
End SubPrivate Sub Command4_GotFocus()
Command4_Click
End SubPrivate Sub DataGrid1_Validate(Cancel As Boolean)a = DataGrid1.SelText
b = DataGrid1.Text
c = DataGrid1.SelStart
Cancel = False
End Sub