加好友 发短信
等级:二尾狐
帖子: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 能帮我看看哪里错了
|
|