大佬幫忙轉(zhuǎn)換下代碼~

arnonho

If e.DataCol.Name = "客戶" OrElse e.DataCol.Name = "商品名稱" Then '如果內(nèi)容發(fā)生變動的是品名列
    If e.DataRow.isnull("客戶") OrElse e.DataRow.isnull("商品名稱") Then '如果新值是空白,也就是品名列的內(nèi)容為空
        e.DataRow("單價") = Nothing '那么清空此行單價列的內(nèi)容
    Else
        Dim dr As DataRow
        '否則在產(chǎn)品表查找同名的產(chǎn)品行,將找到的行賦值給變量dr
        dr = DataTables("客戶").Find("[客戶名稱] = '" & e.DataRow("客戶") & "'")
        If dr IsNot Nothing Then '如果找到了同名的產(chǎn)品行,也就是dr不是Nothing
            Dim dr2 As DataRow = DataTables("商品").Find("[商品名稱] = '" & e.DataRow("商品名稱") & "'")
            If dr2 IsNot Nothing Then
                e.DataRow("單價") = dr2(dr("售價級別"))
            End If
        End If
    End If
End If

If e.DataCol.Name = "商品名稱" Then
    If e.DataRow.isnull("商品名稱") Then
        e.DataRow("單價") = Nothing
    Else
        Dim dr2 As DataRow = DataTables("商品").Find("[商品名稱] = '" & e.DataRow("商品名稱") & "'")
        If dr2 IsNot Nothing Then
            e.DataRow("規(guī)格") = dr2("規(guī)格")
        End If
    End If
End If


以上是我在別的軟件的VB代碼，能否幫忙轉(zhuǎn)成ACCESS用的？

roych

1、Access沒有DataTables控件，需要改成窗體，如果是子窗體，改成Me.子窗體名稱。
2、既然沒有DataTables控件，自然也沒有對應的DataRow子集了。如果需要逐行搜索，需要改成DAO.Recordset，然后用FindFirst方法處理；如果不需要逐行查找，也可以改成SQL條件查詢。
3、VBA也沒有OrElse，改成Or；Nothing不太記得有沒有了，如果沒有，改成 IsNull(Me.控件名)。
4、建議先把Access窗體VBA翻一遍再回頭看這個事情。別做伸手黨。

arnonho

roych 發(fā)表于 2022-6-6 13:41
1、Access沒有DataTables控件，需要改成窗體，如果是子窗體，改成Me.子窗體名稱。
2、既然沒有DataTables ...

謝謝，剛剛接觸，并不是想做伸手黨，多謝你的建議！

worryd1

學習了

FXYDBA

新手還沒找到門在哪，也不敢問，怕別人說是伸手黨