Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这是怎么回事啊


  共有2008人关注过本帖树形打印复制链接

主题：这是怎么回事啊
帅哥哟，离线，有人找我吗？
hongyefor
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		这是怎么回事啊  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00 		  发帖心情 Post By：2015/7/2 21:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：位置.jpg
图片点击可在新窗口打开查看
窗口在这个位置，表在企业信息

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询