7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command2_Click()
If Command2.Caption = "修改记录" Then
Command2.Caption = "确认修改"
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
DataGrid1.AllowUpdate = True
Else
Command2.Caption = "修改记录"
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
End Sub
sub Command2_Click
if Command2.Caption = "确认修改" then
dategrid.DataSource.Update'该语句适用于直接将记录集设置到dategrid.DataSource属性
或者:
adodc1.recordset.update'适用于将dategrid.DataSource属性设置到adodc控件
end if
end sub
sub Command2_Click
if Command2.Caption = "确认修改" then
dategrid.DataSource.Update'该语句适用于直接将记录集设置到dategrid.DataSource属性
或者:
adodc1.recordset.update'适用于将dategrid.DataSource属性设置到adodc控件
end if
end sub
With rs
With rs