以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]点击新增控件后同时写入到标签  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137935)

--  作者:gcf0937
--  发布时间:2019/7/18 16:41:00
--  [求助]点击新增控件后同时写入到标签

If e.Form.Controls("DateTimePicker1").Text = "" Then
    MessageBox.Show("检查时间不能为空")
    Return
End If
If e.Form.Controls("DateTimePicker2").Text = "" Then
    MessageBox.Show("强制时间不能为空")
    Return
End If
Tables("强制措施基本情况").AddNew()
Tables("强制措施基本情况").current("检查时间")=e.Form.Controls("DateTimePicker1").text
Tables("强制措施基本情况").current("强制时间")=e.Form.Controls("DateTimePicker2").text
If e.Form.Controls("RadioButton1").Checked = True Then
    Tables("强制措施基本情况").current("强制措施对象_公民")=e.Form.Controls("RadioButton1").text
    Tables("强制措施基本情况").current("强制措施对象_法人")= ""
Else
    Tables("强制措施基本情况").current("强制措施对象_公民")=""
    Tables("强制措施基本情况").current("强制措施对象_法人")= e.Form.Controls("RadioButton2").text
End If
Tables("强制措施基本情况").current("当事人基本情况_公民_姓名")=e.Form.Controls("TextBox1").text
Tables("强制措施基本情况").current("当事人基本情况_公民_身份证号码")=e.Form.Controls("TextBox2").text
Tables("强制措施基本情况").current("当事人基本情况_公民_住址")=e.Form.Controls("TextBox3").text
Tables("强制措施基本情况").current("当事人基本情况_公民_联系电话")=e.Form.Controls("TextBox4").text
Tables("强制措施基本情况").current("当事人基本情况_法人_名称")=e.Form.Controls("TextBox5").text
Tables("强制措施基本情况").current("当事人基本情况_法人_地址")=e.Form.Controls("TextBox6").text
Tables("强制措施基本情况").current("当事人基本情况_法人_法定代表人")=e.Form.Controls("TextBox7").text
Tables("强制措施基本情况").current("当事人基本情况_法人_联系电话")=e.Form.Controls("TextBox8").text
Tables("强制措施基本情况").current("驾驶员基本情况_驾驶员姓名")=e.Form.Controls("TextBox9").text
Tables("强制措施基本情况").current("驾驶员基本情况_驾驶员证件号码")=e.Form.Controls("TEXTBox10").text
Tables("强制措施基本情况").current("驾驶员基本情况_住址")=e.Form.Controls("TextBox11").text
Tables("强制措施基本情况").current("驾驶员基本情况_联系电话")=e.Form.Controls("TextBox12").text
Tables("强制措施基本情况").current("车辆基本情况_车船号牌")=e.Form.Controls("TextBox13").text
Tables("强制措施基本情况").current("车辆基本情况_车牌颜色")=e.Form.Controls("DropBox1").text
Tables("强制措施基本情况").current("车辆基本情况_车船型号")=e.Form.Controls("ComboBox1").text
Tables("强制措施基本情况").current("车辆基本情况_车船籍")=e.Form.Controls("TextBox14").text

 

以上是窗口1中的一个新增控件

如何在这里加上一段代码基础上将当前行的[案件登记号]单元格中的内容写入窗口2中的Label2

 

谢谢指教


--  作者:有点蓝
--  发布时间:2019/7/18 16:51:00
--  
赋值应该这样

dim r as row = Tables("强制措施基本情况").AddNew()
r("检查时间")=e.Form.Controls("DateTimePicker1").text
r("强制时间")=e.Form.Controls("DateTimePicker2").text
……

给控件赋值
e.Form.Controls("Label2").text = Tables("强制措施基本情况").current("案件登记号")


--  作者:gcf0937
--  发布时间:2019/7/18 17:14:00
--  
Label2这个标签是在另外一个窗口(窗口2)
--  作者:有点蓝
--  发布时间:2019/7/18 17:39:00
--  
Forms("窗口2").Controls("Label2").text = Tables("强制措施基本情况").current("案件登记号")