Dim sl As String = Tables("仓库待出库信息_Table1").Current("数量")
Dim chsl As String = Tables("选择出库信息_Table1").Current("数量")
Dim cksl As WinForm.TextBox = e.Form.Controls("chsl")
Dim dd As Integer
Dim num3 As Integer = 0
Dim sum As Integer
If chsl > sl Then
cksl.Text = sl
Else
If cksl.text <> "" Then
num3 = cint(cksl.text)
End If
If e.Row.Checked Then
num3 = num3 + e.Row("数量")
cksl.text =num3
Else
num3 = cint(cksl.text)
num3 = num3 - e.Row("数量")
cksl.text =num3
End If
For Each r As Row In e.Table.GetCheckedRows
sum+=1
Next
End If
如何判断chsl 如果大于 sl 则cksl 就等于数量？ 如果小于sl的则继续勾选直到勾选数值大于等于sl(大于的话就直接等于sl) 如果判断成功的话那就直接将chsl 减 ckls
加好友 
发短信
Post By：2016/8/18 11:50:00 [显示全部帖子]
此主题相关图片如下：jf4$j4br}9lgdd0@vb5@ttt.png
