主题：在列表中打开一个设计窗口时出错！

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

 

System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 Foxtable.WinForm.Control.WriteValue()
   在 Foxtable.WinForm.Form.O__ooo_o(Object A_0, FormClosingEventArgs A_1)

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

afterLoad事件代码想贴出来，但提示出错发贴不上，什么原因？有没字数限制？

 

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

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")
   
    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

 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 图号,

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")
   
    f.Text="产品规格表"
   
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品规格表窗口表事件.txt

这是文本格式的，想上传WORD的格式上传不了，谢谢你们的帮助！