- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 编译后问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159684)
-- 发布时间：2021/1/4 17:49:00
-- 编译后问题
如题，在编译前运行良好。编译后提示两个控件找不到，为什么？
此主题相关图片如下：360截图18280507555562.png
[此贴子已经被作者于2021/1/4 17:52:11编辑过]
-- 发布时间：2021/1/4 17:53:00
--
此主题相关图片如下：360截图16720406578768.png
-- 发布时间：2021/1/4 18:06:00
--
代码如下：
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
-- 发布时间：2021/1/4 20:01:00
--
上班时间联系客服核对一下激活码