- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮忙看看代码那里不对 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16198)
-- 发布时间：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
-- 发布时间：2012/2/5 13:11:00
--
是外部数据库的位置变了
-- 发布时间：2012/2/5 13:26:00
-- 不是的。
我不知道怎么写代码。
-- 发布时间：2012/2/5 13:41:00
--
关单号是数值型吗？
-- 发布时间：2012/2/5 14:00:00
-- 是字符
是字符
-- 发布时间：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(",")
-- 发布时间：2012/2/5 14:50:00
-- 谢谢C版主
-- 发布时间：2012/2/6 7:50:00
--
e.SelectString = "Select * From {支出明细} Where [关单号] In (" & ids & ") Or [支出账户] Is Null"
呵呵,e.SelectString 好像只能用于项目事件吧.