以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  编码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193097)
--  作者：timber83
--  发布时间：2024/8/16 13:48:00
--  编码
求助

我有两张标，
表A, id，权利义务_甲方，   
表B 类型ID，相关方，权利义务，

现在需要统计，表A ID=表单B,表A中【权利义务_甲方】等于表B中【相关方】=‘甲方’的权利义务

下面代码，需要怎么修改

If e.DataCol.Name = "ID" Then
    Dim Filter As String = "[类型ID] = \'" & e.NewValue & "\'"
    e.DataRow("权利义务_甲方") = DataTables("权利义务").GetComboListString("权利义务", Filter, "排序").replace("|", vbcrlf)
End If
--  作者：有点蓝
--  发布时间：2024/8/16 13:51:00
--  
If e.DataCol.Name = "ID" Then
    Dim Filter As String = "[类型ID] = \'" & e.NewValue & "\' and 相关方=\'甲方\'"
    e.DataRow("权利义务_甲方") = DataTables("权利义务").GetComboListString("权利义务", Filter, "排序").replace("|", vbcrlf)
End If
--  作者：timber83
--  发布时间：2024/8/28 10:27:00
--  
If e.DataCol.Name = "ID" Then
    Dim Filter As String = "[类型ID] = \'" & e.NewValue & "\'"
    e.DataRow("权利义务_甲方") = DataTables("权利义务").GetComboListString("权利义务", Filter, "排序").replace("|", vbcrlf)
End If

上述的
ID 如需要换成 2个列名（单位ID，场所ID）,  
类型ID 如需要换成 2个列名（单位类型ID，场所类型ID）,    这个不通过表内组合两个列名，还有其他方法？如有，该如何编码
--  作者：有点蓝
--  发布时间：2024/8/28 10:32:00
--  
If e.DataCol.Name = "单位类型ID"  orelse e.DataCol.Name = "场所类型ID"  Then
    Dim Filter As String = "[单位类型ID] = \'" & e.datarow("单位类型ID") & "\' and [场所类型ID] = \'" & e.datarow("场所类型ID") & "\'"
    e.DataRow("权利义务_甲方") = DataTables("权利义务").GetComboListString("权利义务", Filter, "排序").replace("|", vbcrlf)
End If