- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口文本框赋值！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59435)
-- 发布时间：2014/11/4 11:47:00
-- [求助]窗口文本框赋值！
欲将同一流水号的不良只数（1或2个数值）赋到同一个窗口文本框中。我的代码如下：但没有数据出现。
如：分切不良只数：
| 35/20 |
Dim dr3 As DataRow = DataTables("成品检验记录表").SQLfind("流水号 = \'"& e.form.controls("流水号").value &"\'")
If dr3 IsNot Nothing Then
For i As Integer = 1 To 10
e.Form.Controls("分切不良只数").value = DataTables("成品检验记录表").SQLGetComboListString("不良项目" & i & "_只数", "流水号 = \'" & dr("流水号") & "\'and 不良项目" & i & "_责任 = \'分切\' ").Replace("|", "/")
Next
End If
-- 发布时间：2014/11/4 12:00:00
--
完全不理解你想做什么
[此贴子已经被作者于2014-11-4 12:00:10编辑过]
-- 发布时间：2014/11/4 12:00:00
--
Dim sum As Double = 0
For Each dr As DataRow In DataTables("成品检验记录表").SQLSelect("流水号 = \'"& e.form.controls("流水号").value &"\'")
For i As Integer = 1 To 10
If dr("不良项目" & i & "_责任") = "分切" Then
sum += dr("不良项目" & i & "_只数")
End If
Next
Next
e.Form.Controls("分切不良只数").value = sum
-- 发布时间：2014/11/4 12:11:00
--
详见附图：
此主题相关图片如下：qq截图20141104121154.png
-- 发布时间：2014/11/4 14:14:00
--
哪位老师可以帮帮忙啊？
-- 发布时间：2014/11/4 14:18:00
--
Dim sum1 As Double = 0
Dim sum2 As Double = 0
For Each dr As DataRow In DataTables("成品检验记录表").SQLSelect("流水号 = \'"& e.form.controls("流水号").value &"\'")
For i As Integer = 1 To 10
If dr("不良项目" & i & "_责任") = "分切" Then
If dr("不良项目" & i & "_班组") = "1班" Then
sum1 += dr("不良项目" & i & "_只数")
Else If dr("不良项目" & i & "_班组") = "2班" Then
sum2 += dr("不良项目" & i & "_只数")
End If
End If
Next
Next
e.Form.Controls("分切不良只数").value = sum1 & "/" & sum2