新增加数据覆盖原数据，不能在老数据后增加

ykcbf1100

原代码无实用价值，直接新写一个，另外写了一个工作表事件，用于提取供应商名

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.17
   
2.     Dim brr(1 To 1000, 1 To 10)
   
3.     With Sheets("录入界面")
   
4.         rq1 = .[b4].Value: rq2 = .[d4].Value
   
5.         xm = .[f4].Value: dd = .[i4].Value
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         For i = 7 To r
   
8.             m = m + 1
   
9.             brr(m, 1) = dd
   
10.             brr(m, 2) = rq1
    
11.             brr(m, 3) = rq2
    
12.             For j = 2 To 7
    
13.                 brr(m, j + 2) = .Cells(i, j)
    
14.             Next
    
15.             brr(m, 10) = xm
    
16.         Next
    
17.     End With
    
18.     Sheets("数据库").[a2].Resize(m, 10) = brr
    
19.     Call 清除数据
    
20. End Sub
    
21. 
    

复制代码

jjc_1212

ykcbf1100 发表于 2024-4-17 10:51
原代码无实用价值，直接新写一个，另外写了一个工作表事件，用于提取供应商名

jjc_1212

ykcbf1100 发表于 2024-4-17 10:51
参与一下。。。

老师，编译错误，麻烦看一下问题出在哪里

ykcbf1100

jjc_1212 发表于 2024-4-17 11:18
老师，编译错误，麻烦看一下问题出在哪里

刚吃饭去了。忘了调试。

现在可以了。

jjc_1212

ykcbf1100 发表于 2024-4-17 13:37
刚吃饭去了。忘了调试。

现在可以了。

老师，录入新数据不是在数据表原有数据后面增加，是覆盖数据表原有数据

ykcbf1100

jjc_1212 发表于 2024-4-17 16:43
老师，录入新数据不是在数据表原有数据后面增加，是覆盖数据表原有数据

保存时是覆盖的。

jjc_1212

ykcbf1100 发表于 2024-4-17 19:14
保存时是覆盖的。

老师，能不覆盖吗，覆盖就没有登记的意义了

ykcbf1100

jjc_1212 发表于 2024-4-18 08:56
老师，能不覆盖吗，覆盖就没有登记的意义了

你看看自己1楼的说明，那里说，总是覆盖在第2行。是我看错了？

jjc_1212

ykcbf1100 发表于 2024-4-18 09:05
你看看自己1楼的说明，那里说，总是覆盖在第2行。是我看错了？

老师，是我描述不清楚，我的意思是这个是一个问题，需要解决