- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]相关联信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74767)
-- 发布时间：2015/9/18 14:13:00
-- [求助]相关联信息
有两个表：“SelfInquiry”,"SelfQuote"。两表中都有相同字段“内询单号”，“selfQuote”中还有一个字段“报送状态”。
有两个窗体：“内询价”（所有者表为“SelfInquiry”），“相关内报价”（里面TABLE表控件关联到“SelfQuote”）
在“内询价”窗体中有一个按钮“相关内报价”。
目的：在“内询价”窗体中点“相关内报价”，跳出“相关内报价”窗体，并在窗体表中显示与当前内询单号相关的“已报送”状态的内报价数据。如下代码对的吗？：
Form("相关内报价").show
Dim dr1 As DataRow = DataTables("SelfInquiry").datarows
Dim dr2 As datarow = DataTables("Selfquote").Find("内询单号= \'" & dr1("内询单号") & “\'")
if dr2 IsNot Nothing Then
DataTables(“SelfQuote”). LoadFilter = "报送状态 = \'已报送\'"
else
MessageBox.Show(“还没人报价呢.”)
end If
DataTables(“SelfQuote”).Load
-- 发布时间：2015/9/18 14:37:00
--
Forms("相关内报价").Open()
Dim dr1 As Row = Tables("SelfInquiry").Current
Dim dr2 As DataRow = DataTables("Selfquote").Find("内询单号= \'" & dr1("内询单号") & "\'")
If dr2 IsNot Nothing Then
DataTables("SelfQuote"). LoadFilter = "报送状态 = \'已报送\'"
Else
MessageBox.Show("还没人报价呢.")
End If
DataTables("SelfQuote").Load()
-- 发布时间：2015/9/30 12:04:00
--
-- 发布时间：2015/9/30 12:10:00
--
2楼代码没错，你数据数据有问题吧？ dr1("内询单号")
-- 发布时间：2015/9/30 12:11:00
--
我再找找看
-- 发布时间：2015/10/4 17:08:00
--
问题调整后解决了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:相关联信息.rar |
-- 发布时间：2015/10/7 11:59:00
--
Forms("相关内报价").Open()
Dim dr1 As Row = Tables("询价").Current
Dim Filter As String = "报送 = \'已报送\' and 询价单号= \'" & dr1("询价单号") & "\'"
Dim dr2 As DataRow = DataTables("报价").Find(filter)
If dr2 IsNot Nothing Then
DataTables("报价"). LoadFilter = filter
Else
MessageBox.Show("还没人报价呢.")
End If
DataTables("报价").Load()