表事件:DoubleClick
Select Case e.Col.Name
Case "公司","代码"
If e.Row("审核") = False Then
e.Cancel = True '禁止双击单元格进入编辑状态
Forms("往来公司选择模式窗口").Show
If Forms("往来公司选择模式窗口").Opened Then
Forms("往来公司选择模式窗口").Controls("TextBox_标识").Value = "供应商"
End If
Else
MessageBox.Show("取消审核后才能更改需方名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
。。。
以上代码执行后,TextBox_标识中没有写入“供应商”,请老师解惑下,谢谢!