Dim r As Row = e.Table.Current
If r Is Nothing Then
Return
End If
If Forms("办公用品领用管理").Opened Then
If Forms("办公用品领用管理").Controls("历史数据").Checked = True Then
Tables("办公用品领用管理_Table2").DataTable.LoadFilter = "商品编号='" & r("商品编号") & "'"
Tables("办公用品领用管理_Table2").DataTable.LoadAsync()
Else
Tables("办公用品领用管理_Table2").DataTable.LoadFilter = " [_Identify] Is Null"
Tables("办公用品领用管理_Table2").DataTable.LoadAsync()
End If
结果打开窗口是提示找不到一个列名:
此主题相关图片如下：tt截图未命名.jpg
然后窗口设计等,全部卡死:
然后我这样改:
Dim r As Row = e.Table.Current
If r Is Nothing Then
Return
End If
If Forms("办公用品领用管理").Opened Then
If Forms("办公用品领用管理").Controls("历史数据").Checked = True Then
Tables("办公用品领用管理_Table2").DataTable.LoadFilter = "商品编号='" & r("商品编号") & "'"
Else
Tables("办公用品领用管理_Table2").DataTable.LoadFilter = " [_Identify] Is Null"
End If
Tables("办公用品领用管理_Table2").DataTable.
LoadAsync()
切换行没有反应,然后我退出系统,就提示系统在加载数据不可以退出. 只能直接关闭程序.
需要注明的是 数据量不会超过5条.
然后我改成
Dim r As Row = e.Table.Current
If r Is Nothing Then
Return
End If
If Forms("办公用品领用管理").Opened Then
If Forms("办公用品领用管理").Controls("历史数据").Checked = True Then
Tables("办公用品领用管理_Table2").DataTable.LoadFilter = "商品编号='" & r("商品编号") & "'"
Else
Tables("办公用品领用管理_Table2").DataTable.LoadFilter = " [_Identify] Is Null"
End If
Tables("办公用品领用管理_Table2").DataTable.
Load
加好友 
发短信
Post By：2014/4/17 8:52:00 [显示全部帖子]
