以文本方式查看主题 -  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=139817)

--  作者：yetle --  发布时间：2019/8/22 11:10:00 --  TextBox不显示值，什么问题 Dim zsl As Integer Dim cmd1 As New SQLCommand cmd1.C cmd1.CommandText = "Select  SUM(件数) As 总数量 f rom [SXCERP].[dbo].[派发工序表] where 订单号=\'19005801\'" zsl  = cmd1.ExecuteScalar()     Dim wcsl As Integer Dim cmd2 As New SQLCommand cmd2.C cmd2.CommandText = "Select  SUM(件数) As 完成数量 f rom [SXCERP].[dbo].[派发工序表] where 订单号=\'19005801\'    and 单据状态=\'已完成\'" wcsl  = cmd2.ExecuteScalar() Dim wcl As Double = val(Forms("流水线生产进度").Controls("TextBox3").Text) wcl=wcsl/zsl

--  作者：有点蓝 --  发布时间：2019/8/22 11:22:00 --   Forms("流水线生产进度").Controls("TextBox3").Text = wcsl/zsl