主题：变量赋值问题

此主题相关图片如下：222.jpg

老师，请教一下：我有个窗口，如上图：

1、供货方名称控件：

Enter事件代码如下：

Dim r As Row = Tables("委托支付管理").Current
If r IsNot Nothing Then  '如果找到的话
    e.Sender.ComboList = DataTables("采购合同管理").SQLGetComboListString("供货方名称 + ',' + 供货方账号 + ',' + 供货方开户银行","[项目名称] = '" & r("项目名称") & "'")
End If

ValueChanged事件代码如下：

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox6")
Dim cmb1 As WinForm.TextBox = e.Form.Controls("TextBox6")
Dim cmb2 As WinForm.TextBox = e.Form.Controls("TextBox10")
Dim Multi As String = cmb.text
Dim Values() As String
Values = Multi.split(",")
If Values.Length > 1
    Tables("委托支付管理").Current("供货方名称")=Values(0)
    Tables("委托支付管理").Current("供货方账号")=Values(1)
    Tables("委托支付管理").Current("供货方开户银行")=Values(2)
End If

 

2、付款方户名控件

Enter事件代码如下：

e.Sender.ComboList = DataTables("委托支付管理").sqlGetComboListString("付款方户名 + ',' + 付款方账号 + ',' + 付款方开户银行")

ValueChanged事件代码如下：

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim cmb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim cmb2 As WinForm.TextBox = e.Form.Controls("TextBox03")
Dim Multi As String = cmb.text
Dim Values() As String
Values = Multi.split(",")
If Values.Length > 1
    Tables("委托支付管理").Current("付款方户名")=Values(0)
    Tables("委托支付管理").Current("付款方账号")=Values(1)
    Tables("委托支付管理").Current("付款方开户银行")=Values(2)
End If

问题：我先选择供货方名称，然后在选择付款方户名时，付款方的账号和付款方开户银行会替换掉前面已经选择的：供货方账号、供货方开户银行，是哪儿问题呢？