- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关联表的多项选择输入！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1770)
-- 发布时间：2009/2/9 9:23:00
-- 关联表的多项选择输入！
此主题相关图片如下：未标题-2.jpg
1.在出库单窗口中选择"生产管理查看"按钮以后,打开生产管理窗口
2.在"生产管理\'窗口中,点击＂关联表＂控件当中的＂选择＂列
3.点击"选择确认"按钮,可以自动复制到"出库单明细"中,另外,生产管理表中的 "状态" 改成: 销售
"日期"输入:当前日期
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.table |
-- 发布时间：2009/2/9 10:50:00
--
dim f As New Filler
f.SourceTable = DataTables("生产管理")
f.DataTable = DataTables("出库明细")
f.Filter = "选择 = true"
f.Fill()
Dim drs As List(Of DataRow)
drs = DataTables("生产管理").Select("[选择] = True")
For Each dr As Datarow In drs
dr("状态") = "销售"
dr("出库日期") = date.today()
dr("选择") = False
Next
e.Form.Close()
-- 发布时间：2009/2/9 11:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:测试.table |
dim f As New Filler
f.SourceTable = DataTables("生产管理")
f.SourceCols = "色名,一"
f.DataTable = DataTables("出库明细")
f.DataCols = "色名,一"
f.Filter = "选择 = true"
f.Fill()
Dim drs As List(Of DataRow)
drs = DataTables("生产管理").Select("[选择] = True")
For Each dr As Datarow In drs
dr("状态") = "销售"
dr("出库日期") = date.today()
dr("选择") = False
Next
e.Form.Close()
我按上面的方式输入,但是没有将记录复制到出库明细表中,请再帮忙看一下,谢谢!
-- 发布时间：2009/2/9 12:31:00
--
数据已经复制进去了，只是未写入关联列的数据。
dim f As New Filler
f.SourceTable = DataTables("生产管理")
f.SourceCols = "色名,一"
f.DataTable = DataTables("出库明细")
f.DataCols = "色名,一"
f.Filter = "选择 = true"
f.Fill()
Dim drs As List(Of DataRow)
drs = DataTables("生产管理").Select("[选择] = True")
For Each dr As Datarow In drs
dr("状态") = "销售"
dr("出库日期") = date.today()
dr("选择") = False
Next
Dim drs1 As List(Of DataRow)
drs1 = DataTables("出库明细").Select("[出库单号] Is Null")
For Each dr1 As Datarow In drs1
dr1("出库单号") = tables("出库单").Current("出库单号")
Next
e.Form.Close()
-- 发布时间：2009/2/9 12:39:00
--
楼主代码存在一个问题，我还不知道怎么解决，就是不能即时刷新窗口中关联表的数据(我还不知方法)。
-- 发布时间：2009/2/9 12:39:00
--
Dim drs As List(Of DataRow)
Dim Vals() As String = New String(){"色名","一","二","三","四","五"}
drs = Tables("出库单").Current.DataRow.GetChildRows("生产管理")
For Each dr1 As Datarow In drs
If dr1("选择") = False Then
Continue For
End If
dr1("状态") = "销售"
dr1("出库日期") = date.today()
dr1("选择") = False
Dim dr2 As Row = Tables("出库单.出库明细").AddNew()
For Each Val As String In Vals
dr2(val) = dr1(val)
Next
Next
e.Form.Close()
-- 发布时间：2009/2/9 15:10:00
--
谢谢狐爸爸,搞定了!
-- 发布时间：2009/2/9 21:15:00
--
老爹这个楼主的datalist是绑定的表...假如是没绑定的怎么处理?
-- 发布时间：2009/2/10 9:06:00
--
以下是引用菜鸟foxtable在2009-2-9 21:15:00的发言：
老爹这个楼主的datalist是绑定的表...假如是没绑定的怎么处理?
老爹这个楼主的datalist是绑定的表...假如是没绑定的怎么处理?
没有邦定，就没有数据，没有数据，也就没有必要处理。