[已解决]查找更新的问题

nyoyo · 发表于 2011-10-17 20:59

目前想要解决的问题：
“采购”表，单击入仓，进入界面后，双击要修改的记录，弹出修改窗口，
1、当单价与原来的采购表单价不同的时候，找到“物品库”表相对应的物品修改单价
2、当供应商与原来的供应商不同的时候，“物品库”新建一条记录，填上物品名、单位、单价及供应商
3、当数量与原来的数量不同的时候，比如原来数量10，但只入仓了3，则把3入仓，剩下的7个的记录继续保留在“采购”表中
想了很久，还是没有找到方法，麻烦高手帮帮忙了，谢谢了！！

采购_new - 副本.rar (33.69 KB, 下载次数: 14)

zjdh · 发表于 2011-10-17 21:45

修改要求中
1.  已改好
2.  是打开“修改”窗体时就添加，还是........
3.  是在点击“确认修改”时计算，还是点击“入库”时？

nyoyo · 发表于 2011-10-17 22:23

2.点“确认修改”后
3.入库后
谢谢！

nyoyo · 发表于 2011-10-18 12:41

回复 zjdh 的帖子

2.点“确认修改”后
3.点“入仓”后

zjdh · 发表于 2011-10-18 14:31

你试试：

采购入库.rar (36.95 KB, 下载次数: 14)

nyoyo · 发表于 2011-10-18 19:03

回复 zjdh 的帖子

嗯，大概明白了，不过在第1点中，价格改了，但未有在“物品库”表中改正单价，这点我自己试着改就可以了，谢谢你的帮忙。

zjdh · 发表于 2011-10-18 22:33

本帖最后由 zjdh 于 2011-10-18 22:39 编辑

第1点中你不是只要查找吗？
没说要更改物品库价格啊！

zjdh · 发表于 2011-10-18 22:42

本帖最后由 zjdh 于 2011-10-18 22:49 编辑

这容易，UserForm4的宏改为：
Private Sub CommandButton1_Click()
Dim i4, j41, j42 As Integer
With UserForm3.ListView2
i4 = .SelectedItem.Index
For i = 1 To 8
   .SelectedItem.SubItems(i) = Controls("TextBox" & i + 1) '这儿简化一下
Next
End With
N = Sheet2.Cells(i4 + 1, 4)
For j41 = 1 To 9
Sheet2.Cells(i4 + 1, j41).Value = Me.Controls("Textbox" & j41).Value
Next
Sheet2.Cells(i4 + 1, 4) = N
UserForm4.Hide
  '----------------------------------------------
  With Sheet1
  ARR = .Range("A2:D" & .Range("A65536").End(3).Row)
  For i = 1 To UBound(ARR)
   If ARR(i, 2) & ARR(i, 1) = TextBox9 & TextBox2 Then
      .Range("D" & i + 1) = TextBox8
      Exit Sub
   End If
Next
   .Range("A65536").End(3)(2) = TextBox2
   .Range("A65536").End(3).Offset(0, 1) = TextBox9
   .Range("A65536").End(3).Offset(0, 2) = TextBox3
   .Range("A65536").End(3).Offset(0, 3) = TextBox8
  End With
   MsgBox "没有该项供应商本商品记录,已添加!"
End Sub

nyoyo · 发表于 2011-10-19 16:15

回复 zjdh 的帖子

哈哈，谢谢你的帮助

		自动登录	找回密码
密码			注册