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 & "'")
'msgbox(s)
Dim s1 As String = DataTables("项目阶段").GetComboListString("项目段号", "任务单编号 In ('" & s.replace("|", "','") & "')")
'MessageBox.Show(s1)
Dim s2 As String = DataTables("零件加工").GetComboListString("工艺单编号", "项目段号 In ('" & s1.replace("|", "','") & "')")
MessageBox.Show(s2)
Tables("生产管理_Table33").filter = "工艺单编号 = '" & s2 & "'"
Table("生产管理_table33")绑定DataTables("零件加工")，筛选出选定客户的所有最后一句代码怎么写？
加好友 
发短信
Post By：2023/11/17 9:13:00 [只看该作者]
