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

谢谢老大，这样我可以依葫芦画瓢了

还有个事情请教一下，现在我对代码中的，特别是括号中的一个’引号，两个”引号有点困惑。

比如其中一句

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

都不知道是怎么对应的，一般想制造信息两边的双引号我知道，对于类似的字符都是双引号的。有没有章节专门对这样做说明？

先写

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 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") & ”’“)

其实我是想理解一下每个 ’ 和每个 ” 的用法。看起来两个' ' 和" "都是相互对应的。现在的迷惑是有点搞不清那些地方是用单引号，那些地方用双引号。

另外，

红老大，你在发货信息（添加）窗口的制造编号控件CheckedComboBox1中设置了enter事件：

e.Sender.ComboList = DataTables("库存信息").GetComboListString("产品基本信息_制造编号", "产品基本信息_是否发货 = false")

这个事件让我能在窗口中点击CheckedComboBox1的时候可以选择库存信息表中的内容。下来菜单弹出一个逻辑选择框和具体的制造编号。我想把这一句依葫芦画瓢，在显示制造编号前面加一个显示机型，所以尝试着写了下面两种语句都没成功。

e.Sender.ComboList = DataTables("库存信息").GetComboListString("产品基本信息_机型" And "产品基本信息_制造编号", "产品基本信息_是否发货 = false")

e.Sender.ComboList = DataTables("库存信息").GetComboListString("产品基本信息_机型" & "产品基本信息_制造编号", "产品基本信息_是否发货 = false")

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

红老大，按照你的两端分别添加进enter和按钮都搞定了，谢谢！

这种是用下来菜单的方式来选择。如果我的制造编号有好几千个就不方便了，如果用表格的形式应该怎么去做，还需要方便的筛选

谢谢大红袍!

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