代码如下：If e.Sender.SelectedPage.Text="基本情况"
MessageBox.Show("选中单元格,点击鼠标右键可进行查询","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
If e.Sender.SelectedPage.Text="短信收发"
Dim txt As WinForm.TextBox = e.Form.Controls("Txt_Box1")
Dim s As String = txt.text
If IsNumeric(s) Then '如果转换成功
Tables("患者登记系统_Table3").DataTable.LoadFilter ="预约日期=#" & Date.Today.AddDays(+Val(s)) & "#"
End If
End If
If e.Sender.SelectedPage.Text="数据统计"
Dim cmb As WinForm.ComboBox =e.Form.Controls("Cmb_tongji")
If user.Type=UserTypeEnum.User Then
cmb.ComboList = "性别|民族|出生日期|登记日期|登记年龄|预约日期|住院年龄|疾病诊断|患者来源地|患者来源地(本市)|推迟住院原因"
Else
cmb.ComboList = "性别|民族|出生日期|登记日期|登记年龄|预约日期|住院年龄|疾病诊断|患者来源地|患者来源地(本市)|预约科室|推迟住院原因"
End If
End If
加好友 
发短信
Post By：2021/1/4 17:49:00 [只看该作者]
此主题相关图片如下：360截图18280507555562.png
