| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 老师我在窗口里已经计算出的值，怎么赋值给另外一个textbox (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188011) |
| -- 作者：初心不改再说未来 -- 发布时间：2023/8/26 14:35:00 -- 老师我在窗口里已经计算出的值，怎么赋值给另外一个textbox 我窗口里有一个用户输入的textbox框，用户输入完了以后我有个点击按钮计算，计算完了以后我想把结果返回给这个窗体的另外一个textbox2里，不需要保存数据表啥的，就是个纯赋值给textbox2就行，这个代码咋写 嘻嘻 不许发火 我多好学的
|
| -- 作者：有点蓝 -- 发布时间：2023/8/26 14:47:00 -- e.form.controls("textbox2").text = "xxxx" |
| -- 作者：初心不改再说未来 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2023/8/26 15:44:00 -- Dim TextBox5 As Double = e.Form.Controls("TextBox5").text |
| -- 作者：初心不改再说未来 -- 发布时间：2023/8/26 16:01:00 -- 不行啊，textbox6这个控件里没有数据，是没传进去还是没计算哇？ |
| -- 作者：初心不改再说未来 -- 发布时间：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 现在代码是这样的，在窗口的确定按钮里。
|
| -- 作者：有点蓝 -- 发布时间：2023/8/26 16:15:00 -- 请上传实例说明 |