Foxtable(狐表)用户栏目专家坐堂 → Datecolchanged 中的代码


  共有23572人关注过本帖树形打印复制链接

主题:Datecolchanged 中的代码

帅哥哟,离线,有人找我吗?
ybil
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:521 积分:4910 威望:0 精华:7 注册:2008/9/2 22:22:00
  发帖心情 Post By:2008/12/29 14:48:00 [显示全部帖子]

这样试试:
Dim dr,dr1 As DataRow
dr = e.DataRow
Select Case e.DataCol.Name
    Case "入库数量","单个克重"
        If dr.IsNull("入库数量")  Then
            dr("入库数量1") = Nothing
        Else
            if dr.IsNull("单个克重") Then
                dr("入库数量1") = 2
            Else  
               dr("入库数量1") = dr("入库数量") * dr("单个克重")
            End if
        End If
   Case "材料名"
       dr1 = DataTables("入录资料").Find("原材料 = '" & dr("材料名") & "'" )
       If dr1 IsNot Nothing
          dr("材料代号")= dr("代号")
          dr("单位")= dr("单位")
          dr("规格")= dr("规格")
          dr("单个克重")= dr("单个克重")
      End If
End Select

 回到顶部