If e.Form.Controls("TextBox1").Text = "已进货" Then
Forms("销进货品名明细").Controls("SplitContainer4").panel1.Collapsed = True
Forms("销进货品名明细").Controls("SplitContainer4").panel2.Collapsed = False
e.Form.Controls("TextBox1").Text = "已销售" 加个已退回
Else
Forms("销进货品名明细").Controls("SplitContainer4").panel1.Collapsed = False
Forms("销进货品名明细").Controls("SplitContainer4").panel2.Collapsed = True
e.Form.Controls("TextBox1").Text = "已进货 " 加个已退货
End If
加好友 
发短信
Post By：2021/1/8 11:34:00 [只看该作者]
