If Forms("库存调整").Opened Then
Dim cmb As WinForm.ComboBox = Forms("库存调整").Controls("移动类型ComboBox2")
Dim ccb As WinForm.CheckedComboBox = Forms("库存调整").Controls("备注CheckedComboBox1")
Dim cmb2 As WinForm.ComboBox = Forms("库存调整").Controls("接收单元ComboBox1")
e.DataRow("调增单元") = cmb2.value.SubString(0,4)
e.DataRow("移动代码") = cmb.Value.SubString(0,3)
e.DataRow("移动文本") = cmb.Value.SubString(4)
e.DataRow("备注") = ccb.Value
End If