以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在列表中打开一个设计窗口时出错！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71631)
--  作者：yankunhao
--  发布时间：2015/7/15 11:26:00
--  在列表中打开一个设计窗口时出错！

在表中双击一行，打开后会显示已设计好的窗口，大部份次数正常，但有时候会出现下面的提示，请问这个是什么意思？

 

System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 Foxtable.WinForm.Control.WriteValue()
   在 Foxtable.WinForm.Form.O__ooo_o(Object A_0, FormClosingEventArgs A_1)
--  作者：大红袍
--  发布时间：2015/7/15 11:29:00
--  

你的afterLoad事件代码贴出来。

 

再有，你在控件里有没有写 WriteValue

--  作者：yankunhao
--  发布时间：2015/7/15 11:34:00
--  

DoubleClick

双击单元格后执行。

 

Dim s As String
Dim r As Row = Tables("obas_part_spec").Current
If r IsNot Nothing Then
    s = r("产品类别")
Else
    s = ""
   
End If

Select Case s
   
    Case "铝门锁","鹅旦锁","有尾门锁"
       
        Forms("产品规格表2").Show
       
    Case ""

        Return

    Case Else
       
        Forms("产品规格表").Show
       
End Select
--  作者：yankunhao
--  发布时间：2015/7/15 11:38:00
--  
afterLoad事件代码想贴出来，但提示出错发贴不上，什么原因？有没字数限制？
--  作者：yankunhao
--  发布时间：2015/7/15 11:39:00
--  

 

AfterLoad

生成窗口后执行，通常在此对窗口和控件进行初始化设置。

 

Forms("产品规格表").BaseForm.WindowState = System.Windows.Forms.FormWindowState.Maximized
Dim f As WinForm.Form = e.Form
Dim t As WinForm.Table = f.Controls("Table1")
Dim s1 As String ="0"
Dim cmb As WinForm.ComboBox
cmb =e.Form.Controls("ComboBox5")


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
   
    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
--  作者：yankunhao
--  发布时间：2015/7/15 11:40:00
--  
Dim s As String = Tables("obas_part_spec").Current("part_no")
        
--  作者：yankunhao
--  发布时间：2015/7/15 11:41:00
--  
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 图号,    
--  作者：大红袍
--  发布时间：2015/7/15 11:41:00
--  

 导出窗口代码，发上来。

 

 http://www.foxtable.com/help/topics/1987.htm

 
--  作者：yankunhao
--  发布时间：2015/7/15 11:42:00
--  
,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")
   
    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="已审核"
    Else
        zt=" "
    End If
--  作者：yankunhao
--  发布时间：2015/7/15 11:43:00
--  
 f.Text="产品规格表 (" & zt & ")"
   
Else
   
    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 图号,