访问Instr Vba

Question

我想把bi!hersteller和bi!produktname复制到一个新的字段中，但是当bi!hersteller已经在bi!produktname时，它应该只将bi!produktname复制到新的字段中，所以我将向您展示我已经尝试过的代码。

 If InStr(1, Bi!Hersteller, Bi!Produktname, 1) > 0 Then ....

 If InStr(1, Bi!Hersteller, Bi!Produktname, 1) Len(Bi!Hersteller) Then ....

或者它在Bi!Produktname中找不到字符串Bi!Hersteller，或者InStr的返回是不正确的。

一个例子

Bi!Hersteller = "Siemens"
Bi!Produktname = "Siemens LC67KA532"

新字段应该是"Siemens LC67KA532"

Answer 1

试试这个：

Dim sNewField
Dim Bi!Hersteller : Bi!Hersteller = "Siemens"
Dim Bi!Produktname : Bi!Produktname = "Siemens LC67KA532"

If InStr(Bi!Produktname, Bi!Hersteller) > 0 Then
   sNewField = Bi!Produktname
Else
   sNewField = Bi!Hersteller & Bi!Produktname
End If