以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态加载关联记录,请各位帮忙一下,谢谢!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4681)
--  作者：woodiy
--  发布时间：2009/10/19 18:46:00
--  动态加载关联记录,请各位帮忙一下,谢谢!
在销售出库单的Datalist中,双击记录行,打开销售出库单,并动态加载关联记录,(关联列为:出库单号) 如何操作?

DoubleClick的代码如下:

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current \'获得选定行
If dr Is Nothing Then
    Return
End If
Dim Index As Integer = Tables("出库主表").FindRow(dr)
If Index >=0 Then
    Tables("出库主表").Position = Index
    Forms("出库主表编辑").Show()
End If

DataTables("出库明细").LoadFilter = "[ID] <> \'0\'"
DataTables("出库明细").LoadFilter = "出库单号 = "  & Tables("出库主表").Current("出库单号")
DataTables("出库明细").Load


但是以上代码出错,列名"XSD"无效,可是我根本就没有"XSD"列,怎么改代码,谢谢!

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试项目.rar
--  作者：mr725
--  发布时间：2009/10/19 19:51:00
--  
1、Datalist 已经不提倡使用了，建议用窗口中的Table。
2、现在好像也没有RelationTable了吧。
3、你这是老项目修改来的，有些窗口控件在控件列表中还有，实际已经没有了，如：Label17。

不过双击代码改为这样还是可以执行的：

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current \'获得选定行
If dr Is Nothing Then
    Return
End If
Dim Index As Integer = Tables("出库主表").FindRow(dr)
If Index >=0 Then
    Tables("出库主表").Position = Index
    Forms("出库主表编辑").Show()
End If

DataTables("出库明细").LoadFilter = "[ID] <> 0  and [出库单号] =  \'" & Tables("出库主表").current("出库单号") & "\'"
DataTables("出库明细").Load
[此贴子已经被作者于2009-10-19 21:35:14编辑过]
--  作者：woodiy
--  发布时间：2009/10/20 12:32:00
--  
Table没有双击属性，有什么办法解决呢?
--  作者：mr725
--  发布时间：2009/10/20 12:42:00
--  
以下是引用woodiy在2009-10-20 12:32:00的发言：
Table没有双击属性，有什么办法解决呢?
Normal（作为副本）、SQLTable 和 SQLQuery型 的Table都有双击事件啊～
[此贴子已经被作者于2009-10-20 12:55:11编辑过]