|
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
| 
加好友 
发短信
Post By：2015/7/2 21:50:00 [显示全部帖子]
