主题：关于定义引用变量的运行时间问题

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