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