主题：[求助]为什么引用以后原值消失了

此主题相关图片如下：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

和这个代码无关，检查其它代码

 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

执行代码 e.form.controls("gj1").value = e.form.controls("gj").value 以后  gj控件的Value属性发生了变化吗?

问题已经解决,谢谢老大