主题：[求助]根据内容自动记录单价

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

点击浏览该文件:天顺物流企业管理系统.table

要求：根据供销明细内记录的出库单位和入库单位内容，自动判断并填入单价（单价在运费设置表内设置）

请教老师代码如何设置

 参考例子 http://www.foxtable.com/help/topics/1459.htm

If e.DataCol.Name = "出库单位" Orelse e.DataCol.Name = "入库单位" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[出库单位] = '" & e.DataRow("出库单位") & "' And [入库单位] = '" & e.DataRow("入库单位") & "'"
    dr = DataTables("运费设置").Find(Filter) '在运费设置表查找所输入出库单位和入库单位的行
    If dr IsNot Nothing Then '如果找到
        '将找到行的单价内容填入到正在输入的行中
        e.DataRow("单价") = dr("单价")
    Else
        '否则清除单价列的内容
        e.DataRow("单价") = Nothing
    End If
End If

1、在项目事件AfterOpenProject中设置如下代码：

'从运费设置表提取出库单位列的内容, 作为供销明细表出库单位列的列表项目
Tables("供销明细").Cols("出库单位").Combolist = DataTables("运费设置").GetComboListString("出库单位")

2、在供销明细表的PrepareEdit事件中输入如下代码：

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "入库单位" Then '如果正在编辑的是入库单位列
        '从运费设置表提取该省 市的入库单位作为列表项目
        e.Col.Combolist = DataTables("运费设置").GetComboListString("入库单位", "[出库单位] = '" & e.Row("出库单位") & "'") 
    End If
End If

<!--EndFragment-->

3、供销明细表的DataColChanged事件中输入如下代码：

'如果刚刚输入的是出库单位或入库单位列
If e.DataCol.Name = "出库单位" Orelse e.DataCol.Name = "入库单位" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[出库单位] = '" & e.DataRow("出库单位") & "' And [入库单位] = '" & e.DataRow("入库单位") & "'"
    dr = DataTables("运费设置").Find(Filter) '在运费设置表查找所输入出库单位和入库单位的行
    If dr IsNot Nothing Then '如果找到
        '将找到行的单价和邮编内容填入到正在输入的行中
        e.DataRow("单价") = dr("单价")
        e.DataRow("邮编") = dr("邮编")
    Else
        '否则清除单价和邮编两列的内容
        e.DataRow("单价") = Nothing
        e.DataRow("邮编") = Nothing
    End If
End If

Dim fdr As DataRow = DataTables("运费设置").Find("出库单位 = '" & e.DataRow("出库单位") & "' and 入库单位 = '" & e.DataRow("入库单位") & "' ")

    If fdr IsNot Nothing Then

        e.DataRow("单价") = fdr("运费设置")

    Else

        e.DataRow("单价") = Nothing

    End If

End If

有问题不知如何表述还真的挺麻烦的