目的：销售订单表中的“单位”来源于本行中的列“单位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

呵呵，我觉得你的设计有点不可思议，怎么会这样呢，这绕的弯也太大了。

如果我判断没错的话，我认为这种多单位的问题很简单，修改你的太费力，我给你一个例子算了:

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

点击浏览该文件:管理项目25.table

我现在做的不直观吗？

以下是引用明丰在2011-5-23 7:54:00的发言：
 

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

 ....................

................. 

 

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

 

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

 

出现的问题：

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

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

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

对应的单位是什么呢，看不懂啊。。。。

神马意思呢？详细点啊。。。

另外，我5楼的疑问看明白了，是不是：列属性中设置的列表项目无效？ 这个要请狐爸看看了····

销售订单表新增行时单位列表不同步原因：

多单位定义表数值取自销售订单表当前行，当销售订单表新增一行时，此时新增行还是空白，多单位定义表引用失效，数值未变化，还是上次数值，但此时 销售订单表的单位列表项目 已经引用多单位定义表当前数值，当销售订单当前行输入内容，多单位定义表数值同步变动，由于 销售订单表的单位列表项目 与多单位定义表没有设置同步，所以数值未改变。

问题：如何设置销售订单表的单位列表项目与多单位定义表同步？或者用事件代替单位列表功能，如何设置？

楼主可能是想多个“计量单位”计量数量。