问题描述:
求教:大神看看是哪里出错了
Private Sub Command1_Click()
If Trim(txtName.Text) = "" Then
MsgBox "请输入单位名称"
txtName.SetFocus
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name") = txtName.Text
Adodc1.Recordset.Fields("district") = txtdistrict.Text
Adodc1.Recordset.Fields("category") = txtcategory.Text
Adodc1.Recordset.Fields("delegate") = txtdelegate.Text
Adodc1.Recordset.Fields("way") = txtway.Text
Adodc1.Recordset.Update
Unload Me
End Sub
Private Sub Command1_Click()
If Trim(txtName.Text) = "" Then
MsgBox "请输入单位名称"
txtName.SetFocus
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name") = txtName.Text
Adodc1.Recordset.Fields("district") = txtdistrict.Text
Adodc1.Recordset.Fields("category") = txtcategory.Text
Adodc1.Recordset.Fields("delegate") = txtdelegate.Text
Adodc1.Recordset.Fields("way") = txtway.Text
Adodc1.Recordset.Update
Unload Me
End Sub
问题解答:
我来补答展开全文阅读