共40 条记录, 每页显示 10 条, 页签: [1] [2][3][4]

标题：求助关联代码修改

1楼

ASD123456789 发表于：2010/9/7 12:16:00

If e.DataCol.Name = "商品名称" Then
    Dim dr As DataRow
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "'")
    If dr IsNot Nothing Then
        e.DataRow("编号") = dr("编号")
    End If
End If

If e.DataCol.Name = "商品名称" Orelse e.DataCol.Name = "编号" Then
    Dim dr As DataRow
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "' And 编号 = '" & e.DataRow("编号") & "'")
    If dr IsNot Nothing Then
        e.DataRow("颜色") = dr("颜色")
    End If
End If

If e.DataCol.Name = "商品名称" Orelse e.DataCol.Name = "编号" Orelse e.DataCol.Name = "颜色" Then
    Dim dr As DataRow
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "' And 编号 = '" & e.DataRow("编号") & "' And 颜色 = '" & e.DataRow("颜色") & "'")
    If dr IsNot Nothing Then
        e.DataRow("单价") = dr("单价")
    End If
End If

此代码，是为能更方便先报价后下单的做用，可就是无法使用，请帮忙修改，

我是意思是先在“报价明细”中进行报价，报完价后，就是“订单明细”中下单，如选商品名称选“吊钟”应该只有吊钟的编号选才对，可现在连商品名称都无法选，请帮忙修改，无比感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.table

2楼

ASD123456789 发表于：2010/9/7 12:17:00

如果选好了，“编号颜色单位”这三个，单价应该自动跳出来，可这个代码有点不对，狐爸帮帮忙

3楼

blackzhu 发表于：2010/9/7 13:45:00

DataColChanged

某一列的内容被更改后执行，此时列的内容已经是更改后的值

你的代码第一,位置放错了,第二,有最后一段代码就OK了.

4楼

blackzhu 发表于：2010/9/7 13:46:00

做服装工厂的?还是外贸做服装的.

5楼

ASD123456789 发表于：2010/9/7 14:48:00

我是服装工厂的，位置改过来还是不是行，请帮我按表做一下吧，谢谢

6楼

ASD123456789 发表于：2010/9/7 14:56:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.table

7楼

狐狸爸爸 发表于：2010/9/7 15:11:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.table

8楼

blackzhu 发表于：2010/9/7 16:51:00

以下是引用ASD123456789在2010-9-7 14:48:00的发言：
我是服装工厂的，位置改过来还是不是行，请帮我按表做一下吧，谢谢

一样一样的,我也是做服装的.

9楼

ASD123456789 发表于：2010/9/8 9:09:00

那有什么好的作品，让我参考一下了，你在那里了

10楼

blackzhu 发表于：2010/9/8 9:44:00

我只做工厂跟单,所以做得东西是根据我服装工厂用的东西.

几个部分: 生产通知单裁剪数装箱单辅料订购纸箱订购出货关于报价和结账一类我是没有弄.因为不是我管的范围.

我无锡的,你那儿的?你要做到什么样子倒是我们可以讨论着做的.

共40 条记录, 每页显示 10 条, 页签: [1] [2][3][4]