Dim s As String
s=e.Sender.Value
's=Forms("产品规格表").Controls("ComboBox5").text
'try
Dim ids As String
Dim drs As List(Of DataRow)
drs = DataTables("料品资料查询表").Select("type_name = '" & s &"'") ' 发现如果用这样的代码就没上面的提示！
'drs = DataTables("料品资料查询表").SQLSelect("type_name = '" & s & "'") ’ 如果用这样的代码就有个别的的会出现上面的提示！
For Each dr As DataRow In drs
ids = ids & ",'" & dr("part_no") & "'"
Next
ids = ids.Trim(",")
'MessageBox.Show(ids,"提示",MessageBoxButtons.OK)
If ids <> "" Then
DataTables("obas_part_spec").LoadFilter = "part_no In (" & ids & ")"
'SystemReady = False
DataTables("obas_part_spec").Load()
'SystemReady = True
End If
'Catch ex As Exception
'MessageBox.Show("没找到相关数据!","提示",MessageBoxButtons.OK)
'End Try
Select Case s
Case "铝门锁","鹅旦锁","有尾门锁"
'If Forms("产品规格表2").Opened = False Then
SystemReady = False
Forms("产品规格表2").Show
SystemReady = True
If Forms("产品规格表2").Opened Then
'SystemReady = False
Forms("产品规格表").Close
' SystemReady = True
End If
' End If
'Case Else
' Return
Case Else
'try
Dim t As WinForm.Table = e.Form.Controls("Table1")
If Tables("obas_part_spec").Current IsNot Nothing Then
Dim s1 As String = Tables("obas_part_spec").Current("part_no")
'If e.Form.Controls("TextBox1").Text <> "" Then
t.Table.Fill("SELECT parent_part as 内部编码,child_part,Left(unit_qty,4) As 数量,bom_sort As 排序,ov_part.item_no As 物料编码,ov_part.part_name As 名称,ov_part.part_spec As 规格,obas_part1.bom_draw_no As 图号,obas_part1.bom_draw_no_wf as 备注,wf_zh as 珠号 from obom_stru2 INNER JOIN ov_part on obom_stru2.child_part = ov_part.part_no INNER JOIN obas_part1 on obom_stru2.child_part = obas_part1.part_no where parent_part='" & s1 & "'ORDER BY 排序","erp",True)
t.Table.SetColVisibleWidth("物料编码|70|名称|70|规格|150|数量|19|图号|99|珠号|25|备注|30")
Else
Dim s2 As String ="0"
t.Table.Fill("SELECT parent_part as 内部编码,child_part,Left(unit_qty,4) As 数量,bom_sort As 排序,ov_part.item_no As 物料编码,ov_part.part_name As 名称,ov_part.part_spec As 规格,obas_part1.bom_draw_no As 图号,obas_part1.bom_draw_no_wf as 备注,wf_zh as 珠号 from obom_stru2 INNER JOIN ov_part on obom_stru2.child_part = ov_part.part_no INNER JOIN obas_part1 on obom_stru2.child_part = obas_part1.part_no where parent_part='" & s2 & "'ORDER BY 排序","erp",True)
t.Table.SetColVisibleWidth("物料编码|70|名称|70|规格|150|数量|19|图号|99|珠号|25|备注|30")
End If
'Catch ex As Exception
' Dim s2 As String ="0"
' Dim t As WinForm.Table = e.Form.Controls("Table1")
't.Table.Fill("SELECT parent_part as 内部编码,child_part,Left(unit_qty,4) As 数量,bom_sort As 排序,ov_part.item_no As 物料编码,ov_part.part_name As 名称,ov_part.part_spec As 规格,obas_part1.bom_draw_no As 图号,obas_part1.bom_draw_no_wf as 备注,wf_zh as 珠号 from obom_stru2 INNER JOIN ov_part on obom_stru2.child_part = ov_part.part_no INNER JOIN obas_part1 on obom_stru2.child_part = obas_part1.part_no where parent_part='" & s2 & "'ORDER BY 排序","erp",True)
't.Table.SetColVisibleWidth("物料编码|70|名称|70|规格|150|数量|19|图号|99|珠号|25|备注|30")
'MessageBox.Show("没找到相关数据!","提示",MessageBoxButtons.OK)
'End Try
If Forms("产品规格表").Opened=True Then
Dim f As WinForm.Form = Forms("产品规格表")
If Tables("obas_part_spec").Current IsNot Nothing Then
Dim zt As String
If Tables("obas_part_spec").Current("sheet_sta")="0" Then
zt="未审核"
ElseIf Tables("obas_part_spec").Current("sheet_sta")="1" Then
zt="已审核"
End If
f.Text="产品规格表 (" & zt & ")"
If Tables("obas_part_spec").Current IsNot Nothing Then
Dim b As Boolean = Tables("obas_part_spec").Current("act_sw")
Select Case b
Case True
e.Form.BackColor = Color.WhiteSmoke
Case Else
e.Form.BackColor = Color.LemonChiffon
End Select
End If
Else
f.Text="产品规格表"
End If
End If
End Select
加好友 
发短信
Post By：2014/3/31 14:01:00 [只看该作者]
