[求助]文本框仍然保持原来的值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2555人关注过本帖树形打印复制链接主题：[求助]文本框仍然保持原来的值

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

huhu

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：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

r("绑锁解绑") = "绑定"

Else

r("产品化编号") = ""

r("订单编号") = ""

r("绑锁解绑") = ""

lsbbbh.Text = r("临时版本编号")

ddbh.text = str1

cphbh.text = str3

End If

end if

Hyphen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/10/17 17:46:00 [只看该作者]

ddbh.Undo() 或者另外用全局变量保存之前的值

huhu

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/10/17 18:00:00 [只看该作者]

undo不是撤销文本框最近的一次操作吗？我是需要保持最近一次的值。

Hyphen

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/10/17 18:02:00 [只看该作者]

不要用绑定方式，直接赋值

huhu

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：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

r("绑锁解绑") = "绑定"

r("订单编号") =str1

r("产品化编号") = str2

Else

r("产品化编号") = ""

r("订单编号") = ""

r("绑锁解绑") = ""

lsbbbh.Text = r("临时版本编号")

End If

endif

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/18 12:00:00 [只看该作者]

汗，你不置空值，就是原先输入的值啊。

huhu

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/10/18 14:11:00 [只看该作者]

不是，是这样。

我点击否，表的数据清空了，文本框的数据仍然有，可是啥也没改，然后再次点击绑定按钮，文本框数据清空了。我是希望再次点击绑定时，文本框数据不清空，可以再次写入到表里面。

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/18 14:21:00 [只看该作者]

做个小例子发上来。不要上传你的整个项目。

huhu

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/10/18 16:01:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.foxdb

下一主题 >> << 上一主题

总数 15 1 2 下一页

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