ddfin.txt

来自「客户信息管理系统10客户信息管理系统10」· 文本 代码 · 共 24 行

Private Sub danxfin_Click()
Text2(20).Locked = False
Text2(21).Locked = True
Text2(22).Locked = True
Text2(23).Locked = True
Text2(20).SetFocus
Text2(20).Text = ""
Text2(21).Text = ""
Text2(22).Text = ""
Text2(23).Text = ""
End Sub
Private Sub duoxfin_Click()
Text2(21).Locked = False
Text2(22).Locked = False
Text2(23).Locked = False
Text2(20).Locked = True
Text2(21).SetFocus
Text2(22).SetFocus
Text2(23).SetFocus
Text2(20).Text = ""
Text2(21).Text = ""
Text2(22).Text = ""
Text2(23).Text = ""
End Sub