主题：[求助]在杂项命令窗口执行代码没反应!

就是做一个关联表

_sysSaveProcGroup表是

_sysSaveProcGroupV2表的父表,关联字段是“第一列”

_sysSaveProcGroupV3表的父表是

_sysSaveProcGroupV2，关联字段是_sysSaveProcGroupV2.第二列 = _sysSaveProcGroupV3.第一列

你的需求是什么呢? 关联的话设置关联就OK了啊.

这样可以避免错误：

 

'''
Forms("窗口1").Controls("TextBox2").Value = "报错的原因是:_sysSaveProcGroup表中的【1】在_sysSaveProcGroupV2g表中没有对应的记录！请问怎以才可以先判断Current有没有记录？"

Dim TBString As String = e.Form.Controls("TextBox1").Text
With DataTables("_sysSaveProcGroup")
    If TBString IsNot Nothing  Then
        .LoadFilter = "[第一列]= '" & TBString & "'"
        .Load
    Else
        .LoadTop = ""
        .LoadOrder = "[第一列] asc"
        .Load
    End If
   
End With
If Tables("窗口1__sysSaveProcGroup").Current IsNot Nothing Then
    Dim pGp As String = Tables("窗口1__sysSaveProcGroup").Current("第一列")
    With DataTables("_sysSaveProcGroupV2")
        .LoadFilter = "[第一列]= '" & pGp & "'"
        .Load
    End With
End If
If Tables("窗口1__sysSaveProcGroupV2").Current IsNot Nothing Then
    Dim CPrN As String = Tables("窗口1__sysSaveProcGroupV2").Current("第二列")
    With DataTables("_sysSaveProcGroupV3")
        .LoadFilter = "[第一列]= '" & CPrN & "'"
        .Load
   End With
End If

 

出错的原因是有的表一开始没有数据，Current为Nothing. 

 

建议看看：

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

 

这样遇到问题可以自己调试分析。

我是想在窗口里面帮到模拟的关联效果

看13楼

现在效果其实是做出来过了，只是当_sysSaveProcGroupV2表没有记录时就会报错
此主题相关图片如下：3333.png

你为什么无视我13楼的回复？

 

感谢13楼狐狸爸爸，但是为什么退出错误后在“命令窗口”执行语句没效果呢？