Dim g2 As String = Forms("比对").Controls("TextBox2").Value
Dim g3 As String = Mid(g2,1,Instr(g2,"*")-1)
Dim gn4 As String = Mid(g2,Instr(g2,"*")+1,Len(g2)-Len(g3))
Dim g4 As String = Mid(gn4,1,Instr(gn4,"*")-1)
Dim gn5 As String = Mid(gn4,Instr(gn4,"*")+1,Len(gn4)-Len(g4))
Dim g5 As String= Mid(gn5,1,Instr(gn5,"*")-1)
Dim gn6 As String = Mid(gn5,Instr(gn5,"*")+1,Len(gn5)-Len(g5))
Dim g6 As String = Mid(gn6,1,Instr(gn6,"*")-1)
加好友 
发短信
Post By：2017/7/1 10:10:00 [显示全部帖子]
