[求助]如何批量生产有相同内容列的行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

比如这样

Dim nr As Row = Tables("发货信息").AddNew()
nr("发货信息_经销商省份") = e.Form.Controls("ComboBox2").Text
nr("发货信息_经销商名称") = e.Form.Controls("ComboBox2").Text
nr("发货信息_发货日期") = e.Form.Controls("DateTimePicker2").Text

下载信息 [文件大小：下载次数： ]
点击浏览该文件:用户信息汇总.foxdb

保存按钮

For Each zzbh As String In e.Form.Controls("CheckedComboBox1").Text.Split(",")
    Dim fdr As DataRow = DataTables("库存信息").Find("产品基本信息_制造编号 = '" & zzbh & "'")
    If fdr IsNot Nothing Then
        Dim nr As Row = Tables("发货信息").AddNew()
        nr("发货信息_经销商省份") = e.Form.Controls("ComboBox2").Text
        nr("发货信息_经销商名称") = e.Form.Controls("ComboBox2").Text
        nr("发货信息_发货日期") = e.Form.Controls("DateTimePicker2").Text
        nr("产品基本信息_制造编号") = fdr("产品基本信息_制造编号")
        fdr("产品基本信息_是否发货") = True
        nr("产品基本信息_机型") = fdr("产品基本信息_机型")
        nr("产品基本信息_发动机号") = fdr("产品基本信息_发动机号")
    End If
Next

删除的联动，datarowDeleting事件

DataTables("库存信息").ReplaceFor("产品基本信息_是否发货", False, "产品基本信息_制造编号 = '" & e.DataRow("产品基本信息_制造编号") & "'")

先写

Dim dr = DataTables("制造信息").Find("产品基本信息_制造编号 = '4-1' and _Identify <> '1'")

然后写

Dim dr = DataTables("制造信息").Find("产品基本信息_制造编号 = '" & 变量 & "' and _Identify <> '" & 变量 & "'")

最后写

Dim dr = DataTables("制造信息").Find("产品基本信息_制造编号 = '" & e.form.controls("TextBox2").text & "' and _Identify <> '" & Tables("制造信息").Current("_Identify") & ”’“)

[此贴子已经被作者于2015/6/23 21:48:38编辑过]

Dim str As String = ""
For Each dr As DataRow In DataTables("库存信息").Select("产品基本信息_是否发货 = false")
str &= dr("产品基本信息_机型") & " ; " & dr("产品基本信息_制造编号") & "|"
Next

e.Sender.ComboList = str.trim("|")

---------------------

For Each zzbh As String In e.Form.Controls("CheckedComboBox1").Text.Split(",")
    zzbh = zzbh.Split(";")(1).Trim()
    Dim fdr As DataRow = DataTables("库存信息").Find("产品基本信息_制造编号 = '" & zzbh & "'")
    If fdr IsNot Nothing Then
        Dim nr As Row = Tables("发货信息").AddNew()
        nr("发货信息_经销商省份") = e.Form.Controls("ComboBox2").Text
        nr("发货信息_经销商名称") = e.Form.Controls("ComboBox2").Text
        nr("发货信息_发货日期") = e.Form.Controls("DateTimePicker2").Text
        nr("产品基本信息_制造编号") = fdr("产品基本信息_制造编号")
        fdr("产品基本信息_是否发货") = True
        nr("产品基本信息_机型") = fdr("产品基本信息_机型")
        nr("产品基本信息_发动机号") = fdr("产品基本信息_发动机号")
    End If
Next

主题：[求助]如何批量生产有相同内容列的行