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

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

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

huhu

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

加好友

发短信

等级：五尾狐帖子：1183 积分：8236 威望：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

加好友

发短信

等级：五尾狐帖子：1183 积分：8236 威望：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

huhu

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

加好友

发短信

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

Post By：2015/10/17 18:00:00 [显示全部帖子]

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

huhu

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

加好友

发短信

等级：五尾狐帖子：1183 积分：8236 威望：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

huhu

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

加好友

发短信

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

Post By：2015/10/18 14:11:00 [显示全部帖子]

不是，是这样。

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

huhu

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

加好友

发短信

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

Post By：2015/10/18 16:01:00 [显示全部帖子]

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

huhu

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

加好友

发短信

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

Post By：2015/10/18 16:11:00 [显示全部帖子]

Dim A As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim B As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim C As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim str1 As String

Dim str2 As String

Dim str3 As String

str1 = A.text

str2 = B.text

str3 = C.text

Dim dr As DataRow = DataTables("表A").SQLFind ("第一列 = '" & str1 & "'")

If dr IsNot Nothing Then

msgbox(str1 & str2 & str3)

If (MessageBox.show("确定绑定?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes) Then

dr("第二列") = str2

dr("第三列") = str3 红色代码好像值没有改变，没写到数据表里面。

dr("第四列") = "绑定"

msgbox(1)

Else

dr("第二列") = ""

dr("第三列") = ""

dr("第四列") = ""

msgbox(2)

End If

huhu

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

加好友

发短信

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

Post By：2015/10/18 16:23:00 [显示全部帖子]

提示不存在datatable是什么意思？

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

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