以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口,e.Form.Controls("cmbszshi") = ""出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95110)

--  作者:zhangjian222200
--  发布时间:2017/1/10 15:47:00
--  窗口,e.Form.Controls("cmbszshi") = ""出错
窗口,修改所在省,如果所在省不为空,则所在市\\所在区县,为空。
代码写在控件:“所在省"的textchanged事件,代码如下,提示错误见图:

\'如果修改所在省,所在市\\所在区县,为空
If Tables("男生资料主窗口_Tablenanszl").Current("所在省") <> "" Then
    Dim suozs As String = Tables("男生资料主窗口_Tablenanszl").Current("所在省")
    If e.Sender.Text <> "suozs" Then
        \'Tables("男生资料主窗口_Tablenanszl").Current("所在市") = ""       \'注:这里改了表,但是不能直接改框内容,所以暂时屏蔽处理
        \'Tables("男生资料主窗口_Tablenanszl").Current("所在区县") = ""
        e.Form.Controls("cmbszshi") = ""
        e.Form.Controls("cmbszquxian") = ""
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下:未命名011.jpg
图片点击可在新窗口打开查看



--  作者:fjlclxj
--  发布时间:2017/1/10 15:56:00
--  
e.Form.Controls("cmbszshi").value = nothing
e.Form.Controls("cmbszquxian").value = nothing

--  作者:有点色
--  发布时间:2017/1/10 16:09:00
--  
 
e.Form.Controls("cmbszshi").Text = nothing
e.Form.Controls("cmbszquxian").Text = nothing

--  作者:zhangjian222200
--  发布时间:2017/1/11 12:16:00
--  
按3楼改了,没有错误提示,但是控件"cmbszshi"、"cmbszquxian",值没有改变为空,原来显示什么,还是显示什么,咋回事?
--  作者:有点色
--  发布时间:2017/1/11 12:35:00
--  

1、你绑定什么表?

 

2、代码改成

 

msgbox(111)

Tables("绑定的表").Current("所在市") = nothing       \'注:这里改了表,但是不能直接改框内容,所以暂时屏蔽处理

Tables("绑定的表").Current("所在区县") = nothing
 
3、必须弹出111,才说明代码执行了。

--  作者:zhangjian222200
--  发布时间:2017/1/11 15:54:00
--  
这是项目文件,窗口:男生资料主窗口,代码写在控件:“所在省"的textchanged事件
还有,标题栏:连云港双联网+用户组+用户名,该怎么做?


[此贴子已经被作者于2017/1/11 16:36:03编辑过]

--  作者:有点色
--  发布时间:2017/1/11 16:35:00
--  

 代码写在 selectedIndexChanged 事件

 

\'如果修改所在省,所在市\\所在区县,为空(代码好像有问题,暂屏蔽)
If e.sender.Focused AndAlso e.sender.text <> "" Then
    Tables("男生资料主窗口_Tablenanszl").Current("所在市") = Nothing       \'注:这里改了表,但是不能直接改框内容,所以暂时屏蔽处理
    Tables("男生资料主窗口_Tablenanszl").Current("所在区县") = Nothing
End If