Dim jbr As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim d As Integer = user.name.Indexof("@")
Dim xx As String = user.name.SubString(0,d)
jbr.text = xx
Dim fckyrkzsl As WinForm.Button = e.Form.Controls("Button4")
fckyrkzsl.text = Vars("fckrkdhwb")
DataTables("非插卡收货扫描").loadFilter = "入库单号 = '" & Vars("fckrkdh") & "' and 状态 = '收货完成'"
DataTables("非插卡收货扫描").load
Dim r As Row = e.Form.Controls("Table1").Table.AddNew
e.Form.Controls("Table1").Table.Select(r.Index,0)
e.Form.Controls("Table1").Select
CurrentTable.StartEditing
Tables("非插卡收货扫描_table2").filter = "入库单号 = '" & Vars("fckrkdh") & "'"
Dim tjrk As WinForm.Button = e.Form.Controls("Button3")
Dim lts As List(of DataRow) = DataTables("U8物料编码入库单收货统计").SQLSelect("入库单号 = '" & Vars("fckrkdh") & "'")
For Each ddr As DataRow In lts
If (ddr("实扫到数量") - ddr("总数量") = 0) Then
tjrk.Enabled = True
Else
tjrk.Enabled = False
End If
Next
Dim ssdsl As WinForm.Button = e.Form.Controls("Button2")
Dim sum As Integer = DataTables("非插卡收货扫描").SQLCompute("SUM(数量)","入库单号 = '" & Vars("fckrkdh") & "'")
ssdsl.text = "实扫到的数量" & "(" & sum & ")"
加好友 
发短信
Post By：2016/8/8 15:49:00 [只看该作者]
