定义了3个文本框,各绑定到了指定的列。当我点击msgbox的“否”时,希望文本框仍然保持之前输入的值,该怎么实现呢?
Dim lsbbbh As WinForm.ComboBox = e.Form.Controls("请选择或输入临时版本编号")
Dim ddbh As WinForm.TextBox = e.Form.Controls("请输入订单编号")
Dim cphbh As WinForm.TextBox = e.Form.Controls("请输入产品化编号")
Dim r As Row = Tables("临时版本跟踪表").Current
Dim Str1 As String
Dim Str2 As String
Dim Str3 As String
Str1 = Tables("临时版本跟踪表").Current("订单编号")
Str2 = Tables("临时版本跟踪表").Current("临时版本编号")
Str3 = Tables("临时版本跟踪表").Current("产品化编号")
If str1 <> "" And str2 <> "" And str3 <> "" Then
If (MessageBox.show("订单编号:" & str1 & "与临时版本编号:" & str2 & "+" & "产品化编号:" & str3 & "确定要绑定?","商务妹子请绑定时请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.OK) Then
r("绑锁解绑") = "绑定"
Else
r("产品化编号") = ""
r("订单编号") = ""
r("绑锁解绑") = ""
lsbbbh.Text = r("临时版本编号")
ddbh.text =
cphbh.text =
End If
End If