[已解决]求助为什么增加一条文本变数值的代码后写入数据库不能判断重复值了。

qinhuan66

求助为什么增加一条文本变数值的代码后写入数据库不能判断重复值了。谢谢
求助A.rar (44.3 KB, 下载次数: 7)

2014-11-15 10:09 上传

点击文件名下载附件

为什么增加这条代码文本变数值的代码后写入数据库不能判断重复值了时不能写入（没有此代码发现重复不能写入）

1. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. On Error Resume Next
   
3. TextBox2.Text = Format(TextBox2.Value, "0.00")
   
4. End Sub

复制代码

禁止重复写入的代码（有上面的代码好像此段代码无效了）

1. Dim arr, strTemp$$$$$$$$$$$$$$$$, i&, str2$$$$$$$$$$$$$$$$
   
2. arr = .Range("a1:g" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
   
3. For i = 1 To 5
   
4. strTemp = strTemp & Me.Controls("combobox" & i).Text & "#"
   
5. Next
   
6. strTemp = UCase(strTemp & TextBox2.Text)
   
7. For i = LBound(arr) To UBound(arr)
   
8. str2 = UCase(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3) & "#" & arr(i, 4) & "#" & arr(i, 5) & "#" & arr(i, 7))
   
9. If strTemp = str2 Then
   
10. MsgBox "记录已经存在"
    
11. Exit Sub
    
12. End If
    
13. Next

复制代码

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-15 11:03

把这句
str2 = UCase(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3) & "#" & arr(i, 4) & "#" & arr(i, 5) & "#" & arr(i, 7))
改为
str2 = UCase(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3) & "#" & arr(i, 4) & "#" & arr(i, 5) & "#" & Format(arr(i, 7), "0.00"))

跳转到最佳答案楼层

qh8600

把这句
str2 = UCase(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3) & "#" & arr(i, 4) & "#" & arr(i, 5) & "#" & arr(i, 7))
改为
str2 = UCase(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3) & "#" & arr(i, 4) & "#" & arr(i, 5) & "#" & Format(arr(i, 7), "0.00"))