主题：多单位设置

 

目的：销售订单表中的“单位”来源于本行中的列“单位1、单位2、单位3”中的其中之一

 

1：设置“多单位定义”表与“销售订单”表当前行的列对应

 

 在销售订单表的表事件CurrentChanged设置：

     Dim r As Row = Tables("销售订单").current

    Dim dr As DataRow

        dr = DataTables("销售订单").Find("货品编号 = '" & r("货品编号") & "'")  

    If dr IsNot Nothing  

Dim r0 As Row = Tables("多单位定义").rows(0)

r0("单位编号") = dr("单位编号1")

r0("单位") = dr("单位1")

r0("比率") =  dr("比率1")

r0("参考进价") = dr("参考进价1") 

r0("零售价") = dr("零售价1")

r0("批发价") = dr("批发价1")

r0("出厂价") = dr("出厂价1")

r0("出厂折扣") = dr("出厂折扣1")

r0("经销折扣") = dr("经销折扣1")

 

Dim r1 As Row = Tables("多单位定义").rows(1)

r1("单位编号") = dr("单位编号2")

r1("单位") = dr("单位2")

r1("比率") =  dr("比率2")

r1("参考进价") = dr("参考进价2") 

r1("零售价") = dr("零售价2")

r1("批发价") = dr("批发价2")

r1("出厂价") = dr("出厂价2")

r1("出厂折扣") = dr("出厂折扣2")

r1("经销折扣") = dr("经销折扣2")

 

Dim r2 As Row = Tables("多单位定义").rows(2)

r2("单位编号") = dr("单位编号3")

r2("单位") = dr("单位3")

r2("比率") =  dr("比率3")

r2("参考进价") = dr("参考进价3") 

r2("零售价") = dr("零售价3")

r2("批发价") = dr("批发价3")

r2("出厂价") = dr("出厂价3")

r2("出厂折扣") = dr("出厂折扣3")

r2("经销折扣") = dr("经销折扣3")

End If

 

在多单位定义表的表事件CurrentChanged设置：

Tables("多单位定义").rows(0)("单位编号") = "1"

Tables("多单位定义").rows(1)("单位编号") = "2"

Tables("多单位定义").rows(2)("单位编号") = "3"

Dim r As Row = Tables("销售订单").current

Dim dr As DataRow

dr = DataTables("销售订单").Find("货品编号 = '" & r("货品编号") & "'")  

Dim r0 As Row = Tables("多单位定义").rows(0)

r0("单位编号") = dr("单位编号1")

r0("单位") = dr("单位1")

r0("比率") =  dr("比率1")

r0("参考进价") = dr("参考进价1") 

r0("零售价") = dr("零售价1")

r0("批发价") = dr("批发价1")

r0("出厂价") = dr("出厂价1")

r0("出厂折扣") = dr("出厂折扣1")

r0("经销折扣") = dr("经销折扣1")

 

Dim r1 As Row = Tables("多单位定义").rows(1)

r1("单位编号") = dr("单位编号2")

r1("单位") = dr("单位2")

r1("比率") =  dr("比率2")

r1("参考进价") = dr("参考进价2") 

r1("零售价") = dr("零售价2")

r1("批发价") = dr("批发价2")

r1("出厂价") = dr("出厂价2")

r1("出厂折扣") = dr("出厂折扣2")

r1("经销折扣") = dr("经销折扣2")

 

Dim r2 As Row = Tables("多单位定义").rows(2)

r2("单位编号") = dr("单位编号3")

r2("单位") = dr("单位3")

r2("比率") =  dr("比率3")

r2("参考进价") = dr("参考进价3") 

r2("零售价") = dr("零售价3")

r2("批发价") = dr("批发价3")

r2("出厂价") = dr("出厂价3")

r2("出厂折扣") = dr("出厂折扣3")

r2("经销折扣") = dr("经销折扣3")

 

2：“销售订单表”中的单位列的值取自列表项目

 

“销售订单表”中单位列设置：列表项目—数据表—“多单位定义”—单位

 

出现的问题：

在销售订单中新增一行,在单位列中选择单位时,列表中的单位不是当前行对应的,要切换到其它行再回来才可以,请帮我修改,谢谢!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:多单位.table