以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  父表与子表同步加载问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27499)

--  作者:SZDVYE
--  发布时间:2013/1/3 2:58:00
--  父表与子表同步加载问题

有A,B表,通过作业单号关联,列类型为:字符型,但是同步加载时出现如下错误代码,但是将作业单号列改为:整数型又可以正常加载,请问如何改进代码?

 


图片点击可在新窗口打开查看此主题相关图片如下:213.jpg
图片点击可在新窗口打开查看

 

代码如下:

If DataTables("A").DataRows.Count = 0 Then \'如果订单表没有数据
    DataTables("B").LoadFilter = "作业单号 Is Null" \'不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("A").DataRows
        ids = ids & "," & dr("作业单号")
    Next
    ids= ids.Trim(",")
    DataTables("B").LoadFilter = "作业单号 In (" & ids & ")"
End If
DataTables("B").Load()

 


--  作者:小猪鑫鑫
--  发布时间:2013/1/3 8:52:00
--  

楼主:您这个是因为主键是字符型的原因造成的,代码的第六行改为

ids = ids & ",\'" & dr("作业单号") & "\'"

这样就可以了


--  作者:SZDVYE
--  发布时间:2013/1/3 11:58:00
--  

谢谢了,放假还加班,辛苦了。