以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮忙看看代码那里不对  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16198)

--  作者:bm
--  发布时间:2012/2/5 13:08:00
--  帮忙看看代码那里不对

ElseIf e.DataTableName = "支出明细" Then
    Dim ids As String
    For Each dr As DataRow In DataTables("业务大表").DataRows
        ids = ids & "," & dr("关单号")
    Next
    ids= ids.Trim(",")
    e.SelectString = "Select * From {支出明细} Where [关单号] In (" & ids & ") Or [支出账户] Is Null"
End If

 


图片点击可在新窗口打开查看此主题相关图片如下:2012-02-05_13-08-13.jpg
图片点击可在新窗口打开查看

--  作者:410109296
--  发布时间:2012/2/5 13:11:00
--  

是外部数据库的位置变了 


--  作者:bm
--  发布时间:2012/2/5 13:26:00
--  不是的。
我不知道怎么写代码。
--  作者:czy
--  发布时间:2012/2/5 13:41:00
--  
关单号是数值型吗?
--  作者:bm
--  发布时间:2012/2/5 14:00:00
--  是字符
是字符
--  作者:czy
--  发布时间:2012/2/5 14:15:00
--  

字符型的这样改一下看看

 

Dim ids As String
For Each dr As DataRow In DataTables("业务大表").DataRows
If dr.IsNull("关单号") = False Then
    ids = ids & ",\'" & dr("关单号") & "\'"
End If
Next
ids= ids.Trim(",")


--  作者:bm
--  发布时间:2012/2/5 14:50:00
--  谢谢C版主
图片点击可在新窗口打开查看
--  作者:blackzhu
--  发布时间:2012/2/6 7:50:00
--  

e.SelectString = "Select * From {支出明细} Where [关单号] In (" & ids & ") Or [支出账户] Is Null"

  呵呵,e.SelectString  好像只能用于项目事件吧.