e.Form.DisableXButton()
'Dim w As Integer = SysInfo.WorkingAreaWidth
'Dim h As Integer = SysInfo.WorkingAreaHeight
'Forms("产品规格表").SetBounds(0, 0,w,h)
MessageBox.Show(1)
Forms("产品规格表").BaseForm.WindowState = System.Windows.Forms.FormWindowState.Maximized
Dim f As WinForm.Form = Forms("产品规格表")
Dim t As WinForm.Table = Forms("产品规格表").Controls("Table1")
Dim s1 As String ="0"
Dim cmb As WinForm.ComboBox
cmb =e.Form.Controls("ComboBox5")
'cmb.ComboList = DataTables("规格明细").SQLGetComboListString("type_name","obas_base_code.code_type = '115' and obas_part1.part_type like '1%'")
MessageBox.Show(2)
cmb.ComboList = DataTables("成品类别表").SQLGetComboListString("type_name","type_name <> '包装物料' and type_name <> '配件' and parent_no = '1'or parent_no like '116%'")
If Tables("obas_part_spec").Current IsNot Nothing Then
MessageBox.Show(3)
Dim b As Boolean = Tables("obas_part_spec").Current("act_sw")
Select Case b
Case True
MessageBox.Show(51)
e.Form.BackColor = Color.WhiteSmoke
MessageBox.Show(52)
Case Else
MessageBox.Show(4)
e.Form.BackColor = Color.LemonChiffon
End Select
MessageBox.Show(5)
Dim s As String = Tables("obas_part_spec").Current("part_no")
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='" & s & "'ORDER BY 排序","erp",True)
t.Table.SetColVisibleWidth("物料编码|70|名称|70|规格|150|数量|19|图号|99|珠号|25|备注|30")
MessageBox.Show(6)
Dim zt As String
MessageBox.Show(7)
If Tables("obas_part_spec").Current("sheet_sta")="0" Then
MessageBox.Show(8)
zt="未审核"
MessageBox.Show(9)
ElseIf Tables("obas_part_spec").Current("sheet_sta")="1" Then
MessageBox.Show(10)
zt="已审核"
End If
MessageBox.Show(zt)
f.Text="产品规格表 (" & zt & ")"
MessageBox.Show(12)
Else
MessageBox.Show(121)
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)
MessageBox.Show(13)
t.Table.SetColVisibleWidth("物料编码|70|名称|70|规格|150|数量|19|图号|99|珠号|25|备注|30")
MessageBox.Show(14)
f.Text="产品规格表"
MessageBox.Show(15)
End If
MessageBox.Show(16)
加好友 
发短信
Post By：2014/7/17 17:13:00 [只看该作者]
