主题：不明原因的错误

此主题相关图片如下：2.jpg

有时候会出现这样的错误,一般是第一次进入时,

AfterLoad

的代码如下:

Dim w As Integer = SysInfo.WorkingAreaWidth
Dim h As Integer = SysInfo.WorkingAreaHeight
e.Form.SetBounds(0, 0,w,h)
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT delivery_addr From {osal_ord1}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox2")
cmb.ComboList= dt.GetComboListString("delivery_addr")

If DataTables("osal_ord1").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("osal_ord2").LoadFilter = "sheet_no Is Null" '不加载订单明细
    DataTables("osal_ord_rem").LoadFilter = "sheet_no Is Null"
Else
    Dim ids As String = CurrentTable.Current("sheet_no")
    
    
    DataTables("osal_ord2").LoadFilter = "[sheet_no] = '" & ids & "'"
    DataTables("osal_ord_rem").LoadFilter = "[sheet_no] = '" & ids & "'"
   
End If
DataTables("osal_ord2").Load()
DataTables("osal_ord_rem").Load()
If CurrentTable.Current IsNot Nothing  Then
    Dim f As WinForm.Form = Forms("销售订单管理")
    f.Text="销售订单 (" & Tables("osal_ord1").Current("状态") & ")"
    Return
Else
    Return
End If

不用吧,这个应该是这里的代码有什么问题,附件很大啊

那应该如何做呢？请指教