求助：在子窗体字符串特定字符处添加字符

wang1950317

网上老师的代码，在子窗体光标处添加字符，现在需要在特定字符处添加，小的代码太菜，求助。请看附件。
谢谢！

roych

表示没看懂，建议最好改下业务。例如，增加一个是否字段，选择后再更新等等。

wang1950317

啊啊！小的很笨，表述不清。谢谢roych老师。
意思是点击窗体上的【AB】将他添加到编号字段  带光标的行”—“的前面：
如光标在2016003-1行
点击窗体上的【AB】，将AB自动添加到“-”的前面：
结果：2016003AB-1

roych

实话说，没什么意义。在子窗体里输入以下代码：

1. Private Sub Form_Current()
   
2.     Dim str1 As String, str2 As String
   
3.     str1 = Left(Me.编号, InStr(1, Me.编号, "-") - 1)
   
4.     str2 = Mid(Me.编号, InStr(1, Me.编号, "-") + 1)
   
5.    
   
6.     Me.编号 = str1 & Me.Parent.AB.Caption & "-" & str2
   
7.    
   
8. End Sub
   

复制代码

不过，最好不要多次点击某个记录，否则会一直加“AB”。我这里暂时不对这部分进行判断。

wang1950317

谢谢roych指点！但误会我的意思了
是光标放在子窗体要添加的行中，（如光标在2016003-1行）
再点击窗体上的【AB】，将AB自动添加到子窗体“-”的前面：
结果：2016003AB-1
不是点击子窗体中2016003-1行。
请再指教，谢谢！

wang1950317

改动一下放在窗体标签【AB】事件中可以完成任务，但还需要加上行中没有“-”时的处理
1.        Dim str1 As String, str2 As String
2.            str1 = Left(Me.编号, InStr(1, Me.编号, "-") - 1)
3.            str2 = Mid(Me.编号, InStr(1, Me.编号, "-") + 1)
4.            
5.            Me.编号 = str1 & Me.AB.Caption & "-" & str2
谢谢roych老师，谢谢！

roych

加上if，判断instr是否大于0就好了，自己调用下吧。
这本身其实完全可以用更新查询来完成的，不过不知道你是全部更新还是只更新部分，没有条件可以设置，不好讲。

wang1950317

只是个别的编号需要添加，所以不能用更新查询。
已添加InStr判断有无“-“，好用。
谢谢！