专家坐堂-这是怎么回事啊Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这是怎么回事啊  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70992)

--  作者：hongyefor
--  发布时间：2015/7/2 21:47:00
--  这是怎么回事啊
Dim t As Table = Tables("企业信息")
If CurrentTable.Current.IsNull("企业名称") Then
    e.Form.Controls("TextBox1").Visible = True
    e.Form.Controls("企业名称").Visible = False
Else
    e.Form.Controls("TextBox1").Visible = False
    e.Form.Controls("企业名称").Visible = True
End If
If CurrentTable.Current.IsNull("地址") Then
    e.Form.Controls("TextBox2").Visible = True
    e.Form.Controls("企业地址").Visible = False
Else
    e.Form.Controls("TextBox2").Visible = False
    e.Form.Controls("企业地址").Visible = True
End If
If CurrentTable.Current.IsNull("联系电话") Then
    e.Form.Controls("TextBox3").Visible = True
    e.Form.Controls("企业电话").Visible = False
Else
    e.Form.Controls("TextBox3").Visible = False
    e.Form.Controls("企业电话").Visible = True
End If
If CurrentTable.Current.IsNull("传真") Then
    e.Form.Controls("TextBox4").Visible = True
    e.Form.Controls("企业传真").Visible = False
Else
    e.Form.Controls("TextBox4").Visible = False
    e.Form.Controls("企业传真").Visible = True
End If
If CurrentTable.Current.IsNull("企业税号") Then
    e.Form.Controls("TextBox5").Visible = True
    e.Form.Controls("企业税号").Visible = False
Else
    e.Form.Controls("TextBox5").Visible = False
    e.Form.Controls("企业税号").Visible = True
End If
If CurrentTable.Current.IsNull("开户银行") Then
    e.Form.Controls("TextBox6").Visible = True
    e.Form.Controls("开户银行").Visible = False
Else
    e.Form.Controls("TextBox6").Visible = False
    e.Form.Controls("开户银行").Visible = True
End If
If CurrentTable.Current.IsNull("银行账号") Then
    e.Form.Controls("TextBox7").Visible = True
    e.Form.Controls("银行账号").Visible = False
Else
    e.Form.Controls("TextBox7").Visible = False
    e.Form.Controls("银行账号").Visible = True
End If
If CurrentTable.Current.IsNull("银行行号") Then
    e.Form.Controls("TextBox8").Visible = True
    e.Form.Controls("银行行号").Visible = False
Else
    e.Form.Controls("TextBox8").Visible = False
    e.Form.Controls("银行行号").Visible = True
End If
If CurrentTable.Current.IsNull("法人代表") Then
    e.Form.Controls("TextBox9").Visible = True
    e.Form.Controls("法人代表").Visible = False
Else
    e.Form.Controls("TextBox9").Visible = False
    e.Form.Controls("法人代表").Visible = True
End If
此主题相关图片如下：错误.jpg

能帮我看看哪里错了

--  作者：hongyefor
--  发布时间：2015/7/2 21:49:00
--

此主题相关图片如下：位置.jpg

窗口在这个位置，表在企业信息

--  作者：大红袍
--  发布时间：2015/7/2 21:50:00
--
Dim t As Table = Tables("企业信息")
If t.Current IsNot Nothing Then
    If t.Current.IsNull("企业名称") Then
        e.Form.Controls("TextBox1").Visible = True
        e.Form.Controls("企业名称").Visible = False
    Else
        e.Form.Controls("TextBox1").Visible = False
        e.Form.Controls("企业名称").Visible = True
    End If
    If t.Current.IsNull("地址") Then
        e.Form.Controls("TextBox2").Visible = True
        e.Form.Controls("企业地址").Visible = False
    Else
        e.Form.Controls("TextBox2").Visible = False
        e.Form.Controls("企业地址").Visible = True
    End If
    If t.Current.IsNull("联系电话") Then
        e.Form.Controls("TextBox3").Visible = True
        e.Form.Controls("企业电话").Visible = False
    Else
        e.Form.Controls("TextBox3").Visible = False
        e.Form.Controls("企业电话").Visible = True
    End If
    If t.Current.IsNull("传真") Then
        e.Form.Controls("TextBox4").Visible = True
        e.Form.Controls("企业传真").Visible = False
    Else
        e.Form.Controls("TextBox4").Visible = False
        e.Form.Controls("企业传真").Visible = True
    End If
    If t.Current.IsNull("企业税号") Then
        e.Form.Controls("TextBox5").Visible = True
        e.Form.Controls("企业税号").Visible = False
    Else
        e.Form.Controls("TextBox5").Visible = False
        e.Form.Controls("企业税号").Visible = True
    End If
    If t.Current.IsNull("开户银行") Then
        e.Form.Controls("TextBox6").Visible = True
        e.Form.Controls("开户银行").Visible = False
    Else
        e.Form.Controls("TextBox6").Visible = False
        e.Form.Controls("开户银行").Visible = True
    End If
    If t.Current.IsNull("银行账号") Then
        e.Form.Controls("TextBox7").Visible = True
        e.Form.Controls("银行账号").Visible = False
    Else
        e.Form.Controls("TextBox7").Visible = False
        e.Form.Controls("银行账号").Visible = True
    End If
    If t.Current.IsNull("银行行号") Then
        e.Form.Controls("TextBox8").Visible = True
        e.Form.Controls("银行行号").Visible = False
    Else
        e.Form.Controls("TextBox8").Visible = False
        e.Form.Controls("银行行号").Visible = True
    End If
    If t.Current.IsNull("法人代表") Then
        e.Form.Controls("TextBox9").Visible = True
        e.Form.Controls("法人代表").Visible = False
    Else
        e.Form.Controls("TextBox9").Visible = False
        e.Form.Controls("法人代表").Visible = True
    End If
End If