Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于窗口的问题


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

主题：关于窗口的问题
帅哥哟，离线，有人找我吗？
hongyefor
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

呃，不知道放哪里图片点击可在新窗口打开查看

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/15 14:41:00 [只看该作者]

 你的afterload事件有写代码吗？

 

 如果写，去掉即可。
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没有用，去掉了也这样

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


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

afterload事件里有别的事件代码，和这个无关的

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/15 15:20:00 [只看该作者]

 那代码就写到afterload事件去

 

e.Form.Controls("TextBox1").Text = nothing


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


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

呃，没反应图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/15 15:28:00 [只看该作者]

 不 可 能

 

 上传项目
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

e.Form.Controls("生产客户").Text = Nothing

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
    If t.Current.IsNull("企业英文名称") Then
        e.Form.Controls("TextBox11").Visible = True
        e.Form.Controls("英文名称").Visible = False
    Else
        e.Form.Controls("TextBox11").Visible = False
        e.Form.Controls("英文名称").Visible = True
    End If
    If t.Current.IsNull("企业英文地址") Then
        e.Form.Controls("TextBox10").Visible = True
        e.Form.Controls("英文地址").Visible = False
    Else
        e.Form.Controls("TextBox10").Visible = False
        e.Form.Controls("英文地址").Visible = True
    End If
    If t.Current.IsNull("营业执照正本") Then
        e.Form.Controls("红1").Visible = True
        e.Form.Controls("绿1").Visible = False
        e.Form.Controls("Button3").Visible = True
        e.Form.Controls("Button5").Visible = False
    Else
        e.Form.Controls("红1").Visible = False
        e.Form.Controls("绿1").Visible = True
        e.Form.Controls("Button3").Visible = False
        e.Form.Controls("Button5").Visible = True
    End If
    If t.Current.IsNull("营业执照副本") Then
        e.Form.Controls("红2").Visible = True
        e.Form.Controls("绿2").Visible = False
        e.Form.Controls("Button4").Visible = True
        e.Form.Controls("Button12").Visible = False
    Else
        e.Form.Controls("红2").Visible = False
        e.Form.Controls("绿2").Visible = True
        e.Form.Controls("Button4").Visible = False
        e.Form.Controls("Button12").Visible = True
    End If
    If t.Current.IsNull("税务登记证正本") Then
        e.Form.Controls("红3").Visible = True
        e.Form.Controls("绿3").Visible = False
        e.Form.Controls("Button6").Visible = True
        e.Form.Controls("dltsw1").Visible = False
    Else
        e.Form.Controls("红3").Visible = False
        e.Form.Controls("绿3").Visible = True
        e.Form.Controls("Button6").Visible = False
        e.Form.Controls("dltsw1").Visible = True
    End If
    If t.Current.IsNull("税务登记证副本") Then
        e.Form.Controls("红6").Visible = True
        e.Form.Controls("绿6").Visible = False
        e.Form.Controls("Button9").Visible = True
        e.Form.Controls("dltsw2").Visible = False
    Else
        e.Form.Controls("红6").Visible = False
        e.Form.Controls("绿6").Visible = True
        e.Form.Controls("Button9").Visible = False
        e.Form.Controls("dltsw2").Visible = True
    End If
    If t.Current.IsNull("企业代码证正本") Then
        e.Form.Controls("红4").Visible = True
        e.Form.Controls("绿4").Visible = False
        e.Form.Controls("Button7").Visible = True
        e.Form.Controls("dltdm1").Visible = False
    Else
        e.Form.Controls("红4").Visible = False
        e.Form.Controls("绿4").Visible = True
        e.Form.Controls("Button7").Visible = False
        e.Form.Controls("dltdm1").Visible = True
    End If
    If t.Current.IsNull("企业代码证副本") Then
        e.Form.Controls("红7").Visible = True
        e.Form.Controls("绿7").Visible = False
        e.Form.Controls("Button10").Visible = True
        e.Form.Controls("dltdm2").Visible = False
    Else
        e.Form.Controls("红7").Visible = False
        e.Form.Controls("绿7").Visible = True
        e.Form.Controls("Button10").Visible = False
        e.Form.Controls("dltdm2").Visible = True
    End If
    If t.Current.IsNull("开户许可证") Then
        e.Form.Controls("红5").Visible = True
        e.Form.Controls("绿5").Visible = False
        e.Form.Controls("Button8").Visible = True
        e.Form.Controls("dltkh1").Visible = False
    Else
        e.Form.Controls("红5").Visible = False
        e.Form.Controls("绿5").Visible = True
        e.Form.Controls("Button8").Visible = False
        e.Form.Controls("dltkh1").Visible = True
    End If
End If

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("任务窗口")
Bar.SelectedIndex = 0
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/15 15:52:00 [只看该作者]

不可能，除非你绑定了表

 

要不上传项目
 回到顶部
帅哥哟，离线，有人找我吗？
hongyefor
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

是SQL的没问题吧
 回到顶部
总数 26 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询