Foxtable(狐表)用户栏目专家坐堂 → [求助]文本框仍然保持原来的值


  共有2578人关注过本帖平板打印复制链接

主题:[求助]文本框仍然保持原来的值

帅哥哟,离线,有人找我吗?
huhu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
[求助]文本框仍然保持原来的值  发帖心情 Post By:2015/10/17 17:07:00 [只看该作者]

定义了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

 回到顶部
总数 15 1 2 下一页