不包含的复制问题

xyh2732

现在双击公司名称会把对于的内容复制到主表上，可否改成如果发票号码包含“到帐开票”就只复制公司名称，不复制发票号码。

xyh2732

审核好慢哦哦！！！

xyh2732

自己顶一下

alexywt

1. Private Sub 公司名称_DblClick(Cancel As Integer)
   
2.     Forms![窗体1]![公司名称] = Me.公司名称
   
3.     If Not (InStr(1, Me.发票号码, "到帐开票") > 0) Then
   
4.         Forms![窗体1]![发票号码] = Me.发票号码
   
5.     Else
   
6.         Forms![窗体1]![发票号码] = ""
   
7.     End If
   
8. End Sub

复制代码

xyh2732

alexywt 发表于 2013-5-28 22:32

非常感谢你的帮忙真是我想要的！