赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，请帮忙一下，我这是商品名称表，商品名称附表，实现在增加一条商品记录时，然后自动在商品名称附表增加记录，增加的内容为商品的相关信息，加上库房表里取得的仓库名，把该仓库的期初数量默认赋值为 0

'增加商品名称附表期初库存信息

Dim cks As New List(Of String)

cks = DataTables("库房表").GetUniqueValues("", "库房名称")

For Each ck As String In cks

Output.Show(ck)

Dim Cols1() As String = {"录入员","日期","商品类别","商品编号","商品名称","规格","型号","单位"} '商品名称表

Dim Cols2() As String = {"录入员","日期","商品类别","商品编号","商品名称","规格","型号","单位","仓库名称","期初数量"} '商品名称附表

For Each dr1 As DataRow In DataTables("商品名称表").datarows

Dim dr2 As DataRow = DataTables("商品名称附表").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

'增加商品名称附表期初库存信息

DataTables("商品名称附表").save

For Each r As Row In Tables("商品名称附表").Rows

r.save

Tables("商品名称表").current.save

Select Case e.DataCol.name

Case "商品编号"

Dim dr As DataRow = DataTables("商品名称附表").Find("商品编号 = '" & e.DataRow("商品编号") & "'")

If dr Is Nothing Then

Dim cks As New List(Of String)

cks = DataTables("库房表").GetUniqueValues("", "库房名称")

For Each ck As String In cks

dr = DataTables("商品名称附表").AddNew()

dr("录入员") = e.DataRow("录入员")

dr("日期") = e.DataRow("日期")

dr("品牌名称") = e.DataRow("品牌名称")

dr("品牌编号") = e.DataRow("品牌编号")

dr("商品类别") = e.DataRow("商品类别")

dr("类别编号") = e.DataRow("类别编号")

dr("商品编号") = e.DataRow("商品编号")

dr("商品名称") = e.DataRow("商品名称")

dr("规格") = e.DataRow("规格")

dr("型号") = e.DataRow("型号")

dr("方向") = e.DataRow("方向")

dr("色号") = e.DataRow("色号")

dr("单位") = e.DataRow("单位")

dr("仓库名称") = ck

dr("期初数量") = 0

End If

End Select

老师，我的这段代码保存成功后，红色部分的值赋值不到“商品名称附表”里，其中品牌编号、品牌名称、商品类别、商品名称、商品编号这个是通过商品类别目录树选择商品类别得到的，日期、录入员、仓库名称、期初数量是通过代码实现的，当输入红色部分的值后，商品名称表里有值，可商品名称附表里却没有

具体实例发上来测试，说明如何操作以后，需要得到什么结果。

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

问题一：新增商品明细后，商品名称表里的字段全部有值，商品名称附表，有些字段赋值不上

此主题相关图片如下：取值.png

问题二、老师，我现在选择的“水果”商品类别，我希望点了“商品新增”后，右边这个窗体商品类别、类别编号、品牌编号、品牌名称自动赋值上

这个问题我已经论坛问过了，可是我按老师的办法，还是写不出来，请老师帮忙了

我现在的增加商品明细，还是使用的手动取商品打开窗体后，手动的选择商品类别后，觉得这个不方便，想自动取值过来

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1 (4).foxdb

主题：赋值