combo 与 textbox 配全做的一个选择框
Private Sub List2_Click()Dim a, b As StringIf T14.Text = "" ThenT14.Text = List2.TextElsea = InStr(T14.Text, List2.Text)If a > 0 ThenIf a > 1 ThenT14.Text = Replace(T14.Text, "|" & List2.Text, "")El
原创
2008-12-30 09:04:00 ·
1714 阅读 ·
0 评论