- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何批量生产有相同内容列的行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70469)
-- 发布时间：2015/6/22 22:11:00
-- [求助]如何批量生产有相同内容列的行
此主题相关图片如下：发货.png
此主题相关图片如下：发货2.png
-- 发布时间：2015/6/22 22:32:00
--
上传一下我的程序
-- 发布时间：2015/6/23 11:11:00
--
专家们都上班了，顶一顶
-- 发布时间：2015/6/23 11:52:00
--
比如这样
Dim nr As Row = Tables("发货信息").AddNew()
nr("发货信息_经销商省份") = e.Form.Controls("ComboBox2").Text
nr("发货信息_经销商名称") = e.Form.Controls("ComboBox2").Text
nr("发货信息_发货日期") = e.Form.Controls("DateTimePicker2").Text
-- 发布时间：2015/6/23 13:04:00
--
红老大，不懂啊！
-- 发布时间：2015/6/23 13:04:00
--
红老大，不懂啊！ 把这个语句写进循环里面？ 另外我应该怎么样去从库存信息的表里选择我需要发货的制造编号？ |
-- 发布时间：2015/6/23 13:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:用户信息汇总.foxdb |
-- 发布时间：2015/6/23 20:56:00
--
红老大，您把程序修改成制造编号那里可以选择库存表中的未标记发货的部分设备，但是我的保存按钮（发货信息添加窗口中的按钮）应该怎么样编写click事件来完成如下三个功能：
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2015/6/23 21:06:00
--
保存按钮
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
-- 发布时间：2015/6/23 21:08:00
--
删除的联动，datarowDeleting事件
DataTables("库存信息").ReplaceFor("产品基本信息_是否发货", False, "产品基本信息_制造编号 = \'" & e.DataRow("产品基本信息_制造编号") & "\'")