Dim wpbh1 As String = Forms("变更窗口").Controls("DropBox4").text
Dim ygbh1 As String = Forms("变更窗口").Controls("DropBox5").text
Dim fjbh1 As String = Forms("变更窗口").Controls("DropBox6").text
'Dim wpsl1 As Double = val(Forms("变更窗口").Controls("NumericComboBox1").text)
Dim syfs1 As String = Forms("变更窗口").Controls("ComboBox2").text
Dim exp As String
exp = CExp("[物品编号] = '{0}' And [员工编号] = '{1}' And [房间编号] = '{2}'", wpbh1,ygbh1,fjbh1)
Dim dr As DataRow = DataTables("出库").find(Cexp)
If dr IsNot Nothing Then
dr("物品数量") = 10000
End If
[此贴子已经被作者于2019/9/19 22:44:47编辑过]