下面的代码,放在datarowadding事件,在没有打开窗口时,dim引用的变量放在if之外就会报错,反之不会,
定义变量不是只有在用的时候才会运行吗?此时if 应该是未执行状态的
If Forms("库存调整").Opened Then
Dim cmb As WinForm.ComboBox = e.Form.Controls("移动类型ComboBox2")
Dim ccb As WinForm.CheckedComboBox = e.Form.Controls("备注CheckedComboBox1")
Dim cmb2 As WinForm.ComboBox = e.Form.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