修改代码
Dim hzxm As String = e.Form.Controls("TextBox1").Value
Dim zyh As String = e.Form.Controls("TextBox2").Value
Dim ssrq As WinForm.DateTimePicker
ssrq = e.Form.Controls("DateTimePicker1")
Dim rdo1 As WinForm.RadioButton
Dim rdo2 As WinForm.RadioButton
rdo1 = e.Form.Controls("RadioButton1")
rdo2 = e.Form.Controls("RadioButton2")
Dim gcys As String = e.Form.Controls("ComboBox1").Value
Dim yblx As String = e.Form.Controls("ComboBox2").Value
Dim sslx As String = e.Form.Controls("ComboBox3").Value
Dim qdys As String = e.Form.Controls("ComboBox4").Value
Dim zdys As String = e.Form.Controls("ComboBox5").Value
Dim dyzs As String = e.Form.Controls("ComboBox6").Value
Dim hsdr As String = e.Form.Controls("ComboBox7").Value
Dim hssr As String = e.Form.Controls("CheckedComboBox1").Value
Dim ssfy As String = e.Form.Controls("TextBox3").Value
Dim dr As Row
Dim pbx As WinForm.PictureBox
If hzxm = "" Then
pbx = e.form.Controls("PictureBox16")
pbx.Image = GetImage("Images\32 (48).png")
e.Form.Controls("信息提示").Text = "请输入患者姓名,不能为空!"
ElseIf zyh = "" Then
pbx = e.form.Controls("PictureBox16")
pbx.Image = GetImage("Images\32 (48).png")
e.Form.Controls("信息提示").Text = "请输入住院号,不能为空!"
ElseIf ssrq Is Nothing Then
pbx = e.form.Controls("PictureBox16")
pbx.Image = GetImage("Images\32 (48).png")
e.Form.Controls("信息提示").Text = "请输入手术日期,不能为空!"
Else
Dim tb As Table = e.Form.controls("Table1").Table
dr = tb.current
dr("患者姓名") = hzxm
dr("住院号") = zyh
dr("手术日期") = ssrq.Value
dr("管床医师") = gcys
dr("医保类型") = yblx
dr("手术类型") = sslx
dr("全刀医师") = qdys
dr("主刀医师") = zdys
dr("第一助手") = dyzs
dr("护士单人") = hsdr
dr("护士双人") = hssr
dr("手术费用") = ssfy
If rdo1.Checked = True Then
dr("是否急诊") = True
Else
dr("是否急诊") = False
End If
dr.Save()
pbx = e.form.Controls("PictureBox16")
pbx.Image = GetImage("Images\Clear Green Button.png")
e.Form.Controls("信息提示").Text = "修改患者信息成功!"
End If
加好友 
发短信
Post By：2018/11/23 13:32:00 [只看该作者]
