- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]为什么引用以后原值消失了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117192)
-- 发布时间：2018/4/8 16:21:00
-- [求助]为什么引用以后原值消失了
此主题相关图片如下：tim截图20180408161619.png
Dim gj As String = e.form.controls("gj").value
Dim ss As String = e.form.controls("ss").value
Dim sq As String = e.form.controls("sq").value
Dim qx As String = e.form.controls("qx").value
Dim xx As String = e.form.controls("xx").value
Dim yb As String = e.form.controls("yb").value
Dim lxr As String = e.form.controls("lxr").value
Dim lxdh As String = e.form.controls("lxdh").value
Dim gsdh As String = e.form.controls("gsdh").value
If e.Sender.Checked = True Then
e.form.controls("gj1").value = gj
e.form.controls("ss1").value = ss
e.form.controls("sq1").value = sq
e.form.controls("qx1").value = qx
e.form.controls("xx1").value = xx
e.form.controls("yb1").value = yb
e.form.controls("lxr1").value = lxr
e.form.controls("lxdh1").value = lxdh
e.form.controls("gsdh1").value = gsdh
Else
e.form.controls("gj1").value = Nothing
e.form.controls("ss1").value = Nothing
e.form.controls("sq1").value = Nothing
e.form.controls("qx1").value = Nothing
e.form.controls("xx1").value = Nothing
e.form.controls("yb1").value = Nothing
e.form.controls("lxr1").value = Nothing
e.form.controls("lxdh1").value = Nothing
e.form.controls("gsdh1").value = Nothing
End If
-- 发布时间：2018/4/8 17:29:00
--
和这个代码无关，检查其它代码
-- 发布时间：2018/4/9 7:59:00
--
e.form.controls("gj")的ValueChanged代码如下:
e.form.controls("ss").value = ""
e.form.controls("ss").ComboList = ""
If e.sender.value = "中国" Then
e.form.Controls("国内").Checked = True
e.form.controls("ss").ComboList = DataTables("行政区域").GetComboListString("省市","国家 = \'中国\' and 省市 > \'\'")
Else
e.form.controls("ss").ComboList = ""
e.form.Controls("国外").Checked = True
End If
-- 发布时间：2018/4/9 8:02:00
--
执行代码 e.form.controls("gj1").value = e.form.controls("gj").value 以后 gj控件的Value属性发生了变化吗?
-- 发布时间：2018/4/9 8:17:00
--
问题已经解决,谢谢老大