Foxtable(狐表)用户栏目专家坐堂 → TextBox不显示值,什么问题


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

主题:TextBox不显示值,什么问题

帅哥哟,离线,有人找我吗?
yetle
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
TextBox不显示值,什么问题  发帖心情 Post By:2019/8/22 11:10:00 [只看该作者]

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

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/22 11:22:00 [只看该作者]

Forms("流水线生产进度").Controls("TextBox3").Text = wcsl/zsl

 回到顶部