以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189206)

--  作者:1234567
--  发布时间:2023/11/16 12:50:00
--  跨表筛选
父表有客户列,子表有品名列(子表无客户列),希望在子表筛选出客户为A 、品名为PD01的数据,求代码。
--  作者:有点蓝
--  发布时间:2023/11/16 13:32:00
--  
父子表通过什么列进行关联的?
--  作者:1234567
--  发布时间:2023/11/16 13:42:00
--  
通过任务单编号关联
--  作者:有点蓝
--  发布时间:2023/11/16 13:46:00
--  
dim s as string = datatables("父表").GetComboListString("任务单编号","客户=‘A’")
tables("子表").filter = “任务单编号 in (\'" & s.replace("|","\',\'") & "\') and 品名=\'PD01\'

--  作者:1234567
--  发布时间:2023/11/16 16:11:00
--  
运行错误 :表达式包含无效的字符串常量: \'。
Dim txt As String = e.Form.Controls("ComboBox7").Value
MessageBox.Show(1)

Dim txt2 As String = e.Form.Controls("ComboBox8").Value
MessageBox.Show(2)

Dim s As String = DataTables("任务单").GetComboListString("任务单编号", "申请单位=‘" & txt & "\'")
MessageBox.Show(3)

Dim s1 As String = DataTables("项目阶段").GetComboListString("项目单号", "任务单编号= \'" & s & "\'")
MessageBox.Show(4)

Tables("零件加工").filter = "项目单号 In (\'" & s1.replace("|", "\',\'") & "\') and  材料牌号=\'" & txt2 & "\')”
MessageBox.Show(5)

--  作者:有点蓝
--  发布时间:2023/11/16 16:19:00
--  
那一句出错?

Dim txt As String = e.Form.Controls("ComboBox7").Value
MessageBox.Show(txt)

Dim txt2 As String = e.Form.Controls("ComboBox8").Value
MessageBox.Show(txt2)

Dim s As String = DataTables("任务单").GetComboListString("任务单编号", "申请单位=‘" & txt & "\'")
MessageBox.Show(s)

Dim s1 As String = DataTables("项目阶段").GetComboListString("项目单号", "任务单编号 In (\'" & s.replace("|", "\',\'") & "\')")
MessageBox.Show(s1)

Tables("零件加工").filter = "项目单号 In (\'" & s1.replace("|", "\',\'") & "\') and  材料牌号=\'" & txt2 & "\')”
MessageBox.Show(5)


--  作者:1234567
--  发布时间:2023/11/16 16:22:00
--  
第三句错了
--  作者:1234567
--  发布时间:2023/11/16 16:22:00
--  
这句错了 Dim s As String = DataTables("任务单").GetComboListString("任务单编号", "申请单位=‘" & txt & "\'")
--  作者:有点蓝
--  发布时间:2023/11/16 16:37:00
--  
msgbox("申请单位=‘" & txt & "\'") 显示什么内容?
--  作者:1234567
--  发布时间:2023/11/17 8:24:00
--  
表达式包含无效的字符串常量: \'。

Dim txt As String = e.Form.Controls("ComboBox7").Value
MessageBox.Show(txt)

Dim txt2 As String = e.Form.Controls("ComboBox8").Value
MessageBox.Show(txt2)

Dim s As String = DataTables("任务单").GetComboListString("任务单编号", "申请单位=‘" & txt & "\'")
msgbox("申请单位=‘" & txt & "\'")