- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 取消错误提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142178)
-- 发布时间：2019/10/20 15:19:00
-- 取消错误提示
此主题相关图片如下：qq图片20191020151210.png
我这个当一条记录都没有的时候，点“显示全部”打开这个新增赊账客户窗体，报错，报错之后关闭报错窗体，然后弹出需要的窗体，这个错误如何定义，自己怎么写不出来
AfterLoad 代码如下
If Forms("赊账客户信息").opened Then
Dim trv As WinForm.TreeView = Forms("赊账客户信息").controls("treeview1")
If trv.SelectedNode IsNot Nothing Then
Dim nd = trv.SelectedNode
Select nd.Level
Case 0
Dim tr As Row = Tables("赊账客户表").Current
Dim dr As DataRow = nd.DataRow \'获取生成此节点的DataRow
tr("客户类型") = dr("客户类型")
tr("类型编号") = dr("类型编号")
e.form.controls("客户类型").text = dr("客户类型")
End Select
End If
End If
-- 发布时间：2019/10/20 23:06:00
--
Case 0
Dim tr As Row = Tables("赊账客户表").Current
if tr is nothing then return
im dr As DataRow = nd.DataRow \'获取生成此节点的DataRow