大佬帮忙转换下代码~

arnonho

If e.DataCol.Name = "客户" OrElse e.DataCol.Name = "商品名称" Then '如果内容发生变动的是品名列
    If e.DataRow.isnull("客户") OrElse e.DataRow.isnull("商品名称") Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("单价") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("客户").Find("[客户名称] = '" & e.DataRow("客户") & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是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("规格") = dr2("规格")
        End If
    End If
End If


以上是我在别的软件的VB代码，能否帮忙转成ACCESS用的？

arnonho

roych 发表于 2022-6-6 13:41
1、Access没有DataTables控件，需要改成窗体，如果是子窗体，改成Me.子窗体名称。
2、既然没有DataTables ...

谢谢，刚刚接触，并不是想做伸手党，多谢你的建议！