此主题相关图片如下：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

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

那应该如何做呢？请指教

事件代码中不应该使用CurrentTable，CurrentTable是什么？ 是选定的表，可能不是你要的表。

另外建议看看:

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

掌握一点基本的调试技巧，这样遇到问题，就能主动分析，不会只能被动等待。