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_标识中没有写入“供应商”，请老师解惑下，谢谢！