求教
在界面窗体的总输入框里输入字符 回车后判断输入到其他输入框里
效果如下图 谢谢
第1个回答 2015-10-24
挺简单的,判断总输入框的文本是否存在特定字符串就好了。
If Left(InStr(Form1.InputBox1.Text, "01"), 2) > 0 Then
Form1.InputBox2.Text = Form1.InputBox1.Text
ElseIf Left(InStr(Form1.InputBox1.Text, "02"), 2) > 0 Then
Form1.InputBox3.Text = Form1.InputBox1.Text
End If
上面代码相应数据可以直接在全部代码搜到的,分别用到了Left函数和InStr函数。追问
If Left(InStr(Form1.InputBox1.Text, "01"), 2) > 0 Then
Form1.InputBox2.Text = Form1.InputBox1.Text
ElseIf Left(InStr(Form1.InputBox1.Text, "02"), 2) > 0 Then
Form1.InputBox3.Text = Form1.InputBox1.Text
End If
上面代码相应数据可以直接在全部代码搜到的,分别用到了Left函数和InStr函数。追问
不行 比如 01999 01表示固定的1号输入框 999是随机变化的数字 01999 表示01号框输入999三个字符 并不是要将 01999 输入到01号框 而且要回车后才输入到1号框
你这个如果我在总输入框里输入 0201 它两个输入框都会有输入 为需要的是 02号框输入 01 两个字符
去掉特定字符很容易,你自己没说明白怪我咯。
第二个问题你把Left函数搞明白再来跟我说。
If Left(InStr(Form1.InputBox1.Text, "01"), 2) > 0 Then
Form1.InputBox2.Text = Replace(Form1.InputBox1.Text,"01","")
ElseIf Left(InStr(Form1.InputBox1.Text, "02"), 2) > 0 Then
Form1.InputBox3.Text = Replace(Form1.InputBox1.Text,"02","")
End If
这次用了Replace函数,搞明白再来追问,别看一眼就觉得自己看穿了一切。