| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 加上messagebox就不报错，去掉就报错，何故？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81936) |
| -- 作者：ycwk -- 发布时间：2016/3/9 9:06:00 -- 加上messagebox就不报错，去掉就报错，何故？ If e.Form.Controls("cb_科室_明细") IsNot Nothing Then \'MessageBox.Show(1) Dim cb As WinForm.ComboBox=e.Form.Controls("cb_科室_明细") Dim dr As DataRow=DataTables("科室信息化联络员表").SQLFind("[科室_明细]= \'" & cb.Value & "\'" ) Dim dr1 As Row = Tables("日常问题记录表").Current \'MessageBox.Show(2) dr1("信息化联络员_长号")=dr("信息化联络员_长号") dr1("信息化联络员_短号")=dr("信息化联络员_短号") dr1("信息化联络员_姓名")=dr("信息化联络员_姓名") End If
|
| -- 作者：ycwk -- 发布时间：2016/3/9 9:07:00 -- 上述代码写 在 cb_科室_明细 textbox控件 的textchanged事件中 |
| -- 作者：大红袍 -- 发布时间：2016/3/9 10:21:00 -- cb.Value 改成 cb.Text |
| -- 作者：大红袍 -- 发布时间：2016/3/9 10:21:00 -- 同时，你要考虑 dr、dr1 是不是空的情况。 |
| -- 作者：ycwk -- 发布时间：2016/3/9 13:12:00 -- 是的，判断一下是否为空就OK了，老是犯这样的错误，不长记性啊，谢袍哥 |