代码:
Private Sub BtSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSave.Click
Try
If TxtRoomNumber.Text = "" Then '判断是否选择房间
MsgBox("请选择房间!")
Exit Sub
End If
Me.BindingContext(Ds1, "客人信息表").EndCurrentEdit() '将数据返回数据集
SqlDataAdapter2.Update(Ds1, "客人信息表") '更新数据,返回数据源
Ds1.Tables("客人信息表").Clear()
'以下代码把选择了的房间的"状态"字段更新为"营业中"
Dim comstr As String = "update 房间表 set 状态 = '营业中' where 房号 = '" & Ds1.房间表.Rows(DataGrid1.CurrentRowIndex).Item(0) & "'"
Dim sqlcom As New SqlCommand(comstr, SqlConnection1)
SqlConnection1.Open()
sqlcom.ExecuteNonQuery()
MsgBox("录入成功!")
BtNext.Enabled = True '将"办理下一个"按钮可用
BtSave.Enabled = False '将"保存信息"按钮不可用
Catch ex As Exception
MsgBox(ex.Message)
Finally
SqlConnection1.Close()
End Try
End Sub
Private Sub TxtDate_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TxtDate.MouseDown
TxtDate.Text = Now()
End Sub
不行啊,“可为空”勾上也不行,还是提醒