Dim cmb5 As WinForm.TextBox = Forms("拼卷二").Controls("TextBox5")
Dim cmb6 As WinForm.TextBox = Forms("拼卷二").Controls("TextBox16")
Dim txt5 As String = cmb5.Value
Dim txt6 As Double = cmb6.Value
If txt5 Is Nothing Then
不执行替换,
ElseIf Len(txt5) > 1 And txt5.Chars(11) = "0" And txt5.Chars(12) = "0" Then
DataTables("检验").ReplaceFor("备注", "拼出", "[产品批号] = '"& txt5 &"'")
DataTables("检验").ReplaceFor("复查人工检验米数", txt6 , "[产品批号] = '"& txt5 &"'")
End If
如果txt5是空值,则不执行替换值, txt5不是空值,那执行替换。
请问不执行替换的语句怎么写呢?