以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  父子表保存的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191989)
--  作者：scofields
--  发布时间：2024/5/21 23:23:00
--  父子表保存的问题
以下这段代码在执行保存按钮时，老是出问题，不知哪里出问题了，请老师帮忙修改：
Select Case e.StripItem.Name
    \'主客户新增
    Case "主客户新增"
        Tables("T_客户表").AddNew() \'打开代码
        e.StripItem.Enabled = False
    Case "主客户保存"
        If Tables("T_客户表").Current IsNot Nothing Then
            vars("a") = True
            Dim drs As List(Of DataRow)
            drs = DataTables("T_子客户").Select("[客户名称] =  \'" & Tables("T_客户表").Current("客户名称") &  "\' ")
            For Each dr As DataRow In drs
                dr.Save()
            Next
            Tables("T_客户表").Current.Save()
            Syscmd.Row.UnLock()
            e.Form.Strips("主菜单").Items("主客户新增").Enabled = True
        End If
    Case "主客户修改"
        Syscmd.Row.UnLock()
    Case  "主客户删除"
        Dim Result As DialogResult
        Result = MessageBox.Show("你确定要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes And Tables("T_客户表").Current("资金结余") =0  Then
            Syscmd.Row.Delete()
        Else
            MessageBox.Show("不允许删除","提示",MessageBoxButtons.OK)
        End If
        \'子客户新增
    Case "子客户新增"
        Tables("T_客户表.T_子客户").AddNew() \'新增代码
        e.StripItem.Enabled = False
    Case "子客户保存"
        Tables("T_客户表.T_子客户").Current.save()\'保存代码
        Syscmd.Row.Lock()
        e.Form.Strips("主菜单").Items("子客户新增").enabled = True
    Case "子客户修改"
        Syscmd.Row.UnLock()
        e.Form.Strips("主菜单").Items("子客户新增").enabled = False
    Case  "子客户删除"
        MessageBox.Show("不允许删除","提示",MessageBoxButtons.OK)
End Select
--  作者：有点蓝
--  发布时间：2024/5/22 8:32:00
--  
出什么问题？提示什么错误？
--  作者：scofields
--  发布时间：2024/5/22 11:53:00
--  
未引用到实例。
--  作者：有点蓝
--  发布时间：2024/5/22 11:56:00
--  
    Case "子客户保存"
if Tables("T_客户表.T_子客户").Current isnot nothing
        Tables("T_客户表.T_子客户").Current.save()\'保存代码
        Syscmd.Row.Lock()
        e.Form.Strips("主菜单").Items("子客户新增").enabled = True
end if