把下面这段代码放到 窗口的 afterload事件中，本想打入电话后，人工点击弹出窗口"win_日常问题记录修改"，再把全局变量CallerNo传给窗口“tb_电话号码”控件，现在tb_电话号码可以正常得到值，但是下面的需要根据来电 电话号码取值的三个combox控件死活都获取不到值。 何故？ 我现在只能把下面第二段代码放在 tb_电话号码控件的 click 事件中，通过弹出窗口后点击一下三个combox控件才能正常获取值。
第一段：
If vars("CallerNo") IsNot Nothing Then
e.Form.Controls("tb_电话号码").text=Vars("CallerNo") '在加载窗口后把全局变量CallerNO(存储来电号码),传递给窗口里的控件
End If
第二段：
Dim tb As WinForm.TextBox
Dim dr As DataRow
tb=Forms("win_日常问题记录修改").controls("tb_电话号码")
dr= DataTables("科室信息化联络员表").SQLFind("科室_电话='"& tb.value &"'")
If dr IsNot Nothing Then
Forms("win_日常问题记录修改").Controls("cb_部门分类").value =dr("部门分类")
Forms("win_日常问题记录修改").Controls("cb_科室_学科").value =dr("科室_学科")
Forms("win_日常问题记录修改").Controls("cb_科室_明细").value =dr("科室_明细")
Else
MessageBox.Show("该电话号码没有收录!")
End If
加好友 
发短信
Post By：2016/3/1 20:01:00 [显示全部帖子]
