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


  共有2969人关注过本帖树形打印复制链接

主题:老师我在窗口里已经计算出的值,怎么赋值给另外一个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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/26 14:47:00 [只看该作者]

e.form.controls("textbox2").text = "xxxx"

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/26 15:44:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2023/8/26 16:01:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/26 16:15:00 [只看该作者]

请上传实例说明

 回到顶部