- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]文本框仍然保持原来的值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75918)
-- 发布时间：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
-- 发布时间：2015/10/17 17:44:00
--
换了一种思路。发现点击“否”时，发现ddbh.text和cphbh.text维持原来的值，且数据表的r("产品化编号") 和r("订单编号")的值都为空了。
问题是当我再次点击绑定按钮时，发现ddbh.text和cphbh.text同样自动清空了。这个问题该如何解决？
绑定代码：
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 = ddbh.text
Str2 = lsbbbh.text
Str3 = cphbh.text
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 = str1
cphbh.text = str3
End If
end if
-- 发布时间：2015/10/17 17:46:00
--
ddbh.Undo() 或者另外用全局变量保存之前的值
-- 发布时间：2015/10/17 18:00:00
--
undo不是撤销文本框最近的一次操作吗？我是需要保持最近一次的值。
-- 发布时间：2015/10/17 18:02:00
--
不要用绑定方式，直接赋值
-- 发布时间：2015/10/17 18:14:00
--
如果不绑定，好像没有赋值成功。
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 = ddbh.text
Str2 = lsbbbh.text
Str3 = cphbh.text
If str1 <> "" And str2 <> "" And str3 <> "" Then
If (MessageBox.show("订单编号:" & str1 & "与临时版本编号:" & str2 & "+" & "产品化编号:" & str3 & "确定要绑定?","商务妹子请绑定时请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.OK) Then
r("绑锁解绑") = "绑定"
r("订单编号") =str1
r("产品化编号") = str2
Else
r("产品化编号") = ""
r("订单编号") = ""
r("绑锁解绑") = ""
lsbbbh.Text = r("临时版本编号")
End If
endif
-- 发布时间：2015/10/18 12:00:00
--
汗，你不置空值，就是原先输入的值啊。
-- 发布时间：2015/10/18 14:11:00
--
不是，是这样。
我点击否，表的数据清空了，文本框的数据仍然有，可是啥也没改，然后再次点击绑定按钮，文本框数据清空了。我是希望再次点击绑定时，文本框数据不清空，可以再次写入到表里面。
-- 发布时间：2015/10/18 14:21:00
--
做个小例子发上来。不要上传你的整个项目。
-- 发布时间：2015/10/18 16:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |