Foxtable(狐表)用户栏目专家坐堂 → 查看(yacity作者)库存所增加的问题(问)


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

主题:查看(yacity作者)库存所增加的问题(问)

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


加好友 发短信
等级:小狐 帖子:383 积分:2757 威望:0 精华:0 注册:2011/9/1 14:26:00
查看(yacity作者)库存所增加的问题(问)  发帖心情 Post By:2011/9/14 10:13:00 [只看该作者]

我的问题是这个库存表里面只引用一个产品ID 如果我在加一个条件产品型号 如何在代码里加进去  请狐爸爸解决 我是一个初学者研究半天也没有研究明白
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查看(yacity作者)库存所增加的问题(问).table


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/14 10:15:00 [只看该作者]

这种情况,加产品型号是多余的,因为每个产品的产品ID都是唯一的,只需用产品ID作为条件即可。


 回到顶部
帅哥哟,离线,有人找我吗?
7032175
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:383 积分:2757 威望:0 精华:0 注册:2011/9/1 14:26:00
  发帖心情 Post By:2011/9/14 11:06:00 [只看该作者]

产品ID是主要的 但是我还想在加上一个条件在代码里如何写进去 请狐爸爸 告诉我一下  这和我的工作所需要的很相似  谢谢了


 回到顶部
帅哥哟,离线,有人找我吗?
7032175
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:383 积分:2757 威望:0 精华:0 注册:2011/9/1 14:26:00
  发帖心情 Post By:2011/9/14 11:26:00 [只看该作者]

狐爸爸吃饭回来一定帮我一下 谢谢 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/14 11:45:00 [只看该作者]

价格条件很简单的,假定原来的条件是:

 

Dim s As String = "产品id = '" & dr("产品id") & "'"

 

加上产品型号的条件:

 

Dim s As String = "产品id = '" & dr("产品id") & "' And 产品型号 = '" & dr(产品型号) & "'"

 

关于合成表达式,这里有说明:

http://www.foxtable.com/help/topics/1284.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
7032175
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:383 积分:2757 威望:0 精华:0 注册:2011/9/1 14:26:00
  发帖心情 Post By:2011/9/14 12:46:00 [只看该作者]

If e.DataCol.Name ="入库" Then
    Dim dr,dr1 As DataRow
    dr = e.DataRow
    If dr.isnull("产品id") Then
        MessageBox.Show("产品id不能为空!")
    Else
        Dim s As String = "产品id = '" & dr("产品id") & "'And 产品型号 = '" & dr(产品型号) & "'"
        dr1= DataTables("仓库").find(s)
        If dr1 IsNot Nothing Then
            Dim val As Integer = dr("生产数量")
            If dr("入库") = False Then
                val = -val
            End If
            dr1("累计入库")+ = val
            dr1.Save()
        Else
            Dim Ls As String() = {"产品ID","产品名称","规格","单位"}
            dr1 = DataTables("仓库").AddNew()
            For Each s In Ls
                dr1(s) = dr(s)
            Next
            dr1("累计入库") = dr("生产数量")
            dr1.Save()
        End If
        dr.Save()
    End If
End If

 

 我这么写上去之后 显示编辑错未生明名称产品编号


 回到顶部
帅哥哟,离线,有人找我吗?
7032175
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:383 积分:2757 威望:0 精华:0 注册:2011/9/1 14:26:00
  发帖心情 Post By:2011/9/14 12:48:00 [只看该作者]

恳请狐爸爸 把全文的代码帮我写一下 谢谢了 我真的搞不定了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查看(yacity作者)库存所增加的问题(问).table


 回到顶部
帅哥哟,离线,有人找我吗?
7032175
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:383 积分:2757 威望:0 精华:0 注册:2011/9/1 14:26:00
  发帖心情 Post By:2011/9/14 13:21:00 [只看该作者]

狐爸爸有时间帮我一下谢谢

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


加好友 发短信
等级:超级版主 帖子:521 积分:4910 威望:0 精华:7 注册:2008/9/2 22:22:00
  发帖心情 Post By:2011/9/14 13:41:00 [只看该作者]

注:产品id,产品型号均改為字符型!

If e.DataCol.Name ="入库" Then
    Dim dr,dr1 As DataRow
    dr = e.DataRow
    If dr.isnull("产品id") Then
        MessageBox.Show("产品id不能为空!")
    Else
        Dim s As String = "产品id = '" & dr("产品id") & "'and 产品型号 = '" &  dr("产品型号") & "'"
        dr1= DataTables("仓库").find(s)
        If dr1 IsNot Nothing Then
            Dim val As Integer = dr("生产数量")
            If dr("入库") = False Then
                val = -val
            End If
            dr1("累计入库")+ = val
            dr1.Save()
        Else
            Dim Ls As String() = {"产品ID","产品名称","规格","单位"}
            dr1 = DataTables("仓库").AddNew()
            For Each s In Ls
                dr1(s) = dr(s)
            Next
            dr1("累计入库") = dr("生产数量")
            dr1.Save()
        End If
        dr.Save()
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/14 14:56:00 [只看该作者]

楼主还是老老实实看帮助文件吧,你的产品型号居然是单精度小数型,产品ID一个是字符型,一个是整数型,列类型一错,全部都会错的。

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查看(yacity作者)库存所增加的问题(问).rar


 回到顶部