老师我在窗口里已经计算出的值，怎么赋值给另外一个textbox - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师我在窗口里已经计算出的值，怎么赋值给另外一个textbox

共有2781人关注过本帖树形打印复制链接主题：老师我在窗口里已经计算出的值，怎么赋值给另外一个textbox

初心不改再说未来

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

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

老师我在窗口里已经计算出的值，怎么赋值给另外一个textbox 发帖心情

Post By：2023/8/26 14:35:00 [显示全部帖子]

我窗口里有一个用户输入的textbox框，用户输入完了以后我有个点击按钮计算，计算完了以后我想把结果返回给这个窗体的另外一个textbox2里，不需要保存数据表啥的，就是个纯赋值给textbox2就行，这个代码咋写

嘻嘻

不许发火

我多好学的

初心不改再说未来

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

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

Post By：2023/8/26 15:35:00 [显示全部帖子]

老师你看下为啥点击窗口的计算按钮没反应呢

Dim jg As Double

Dim random As New Random()

Dim TextBox5 As Double = e.Form.Controls("TextBox5").Value

If TextBox5 < 1000 Then

jg = CInt(TextBox5 * (random.NextDouble() * (0.92 - 0.90) + 0.90)) ' 如果输入的jg < 1000，则返回jg * 0.90至0.92之间随机的结果的整数部分

Else

jg = CInt(TextBox5 * (random.NextDouble() * (0.94 - 0.93) + 0.93)) ' 如果输入的jg >= 1000，则返回jg * 0.93至0.94之间随机的结果的整数部分

End If

e.form.controls("textbox6").text = jg

初心不改再说未来

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

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

Post By：2023/8/26 16:01:00 [显示全部帖子]

不行啊，textbox6这个控件里没有数据，是没传进去还是没计算哇？

初心不改再说未来

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

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

Post By：2023/8/26 16:05:00 [显示全部帖子]

Dim jg As Double

Dim random As New Random()

Dim TextBox5 As Double = e.Form.Controls("TextBox5").text

If TextBox5 < 1000 Then

jg = CInt(TextBox5 * (random.NextDouble() * (0.92 - 0.90) + 0.90)) ' 如果输入的jg < 1000，则返回jg * 0.90至0.92之间随机的结果的整数部分

Else

jg = CInt(TextBox5 * (random.NextDouble() * (0.94 - 0.93) + 0.93)) ' 如果输入的jg >= 1000，则返回jg * 0.93至0.94之间随机的结果的整数部分

End If

e.form.controls("textbox6").text = jg

现在代码是这样的，在窗口的确定按钮里。

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

主题：老师我在窗口里已经计算出的值，怎么赋值给另外一个textbox