以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于副表关联窗体控件的问题,一样的代码上个版本程序没有问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43407)
--  作者：zhengboxin
--  发布时间：2013/12/6 11:30:00
--  [求助]关于副表关联窗体控件的问题,一样的代码上个版本程序没有问题

各位老师帮我看下问题,谢谢了

 

首先在窗体 AfterLoad

Dim cmd As New SQLCommand
cmd.C
DataTables("费用单_Table1").fill("Select * From {FYD} where 1=0","YZSJ",False)
Tables("费用单_Table1").AllowEdit = False
Tables("费用单_Table1").DataTable.SysStyles("EmptyArea").BackColor=Color.White
e.form.Controls("TextBox1").BindingField = "费用单_Table1.FYDH"
e.Form.Controls("DateTimePicker1").BindingField = "费用单_Table1.RQ"

 

然后一个按钮的代码

Tables("费用单_Table1").AllowEdit = True
Tables("费用单_Table1").AddNew
Tables("费用单_Table1").Current("FYDH")="ZBCDZ"
Tables("费用单_Table1").Current("RQ")=Date.Today

 

这样的话我初始化的内容不会出来

 

Tables("费用单_Table1").AllowEdit = True
Tables("费用单_Table1").AddNew
e.Form.Controls("DateTimePicker1").value=Date.Today
e.Form.Controls("TextBox1").value="ZBCDZ"

这样的话初始值出来了,去Table1查看又没有内容

 

我上一个版本一样的代码都没问题,万分感谢
[此贴子已经被作者于2013-12-6 11:31:31编辑过]
--  作者：Bin
--  发布时间：2013/12/6 11:40:00
--  
上个例子看看吧.
--  作者：blackzhu
--  发布时间：2013/12/6 12:20:00
--  

然后一个按钮的代码

Tables("费用单_Table1").AllowEdit = True
Tables("费用单_Table1").AddNew
Tables("费用单_Table1").Current("FYDH")="ZBCDZ"
Tables("费用单_Table1").Current("RQ")=Date.Today  这个是对的 \'



Tables("费用单_Table1").AllowEdit = True
Tables("费用单_Table1").AddNew
e.Form.Controls("DateTimePicker1").value=Date.Today
e.Form.Controls("TextBox1").value="ZBCDZ"


 这个不行,



详细看帮助的 " 数据绑定与值的读写"  这一章
--  作者：zhengboxin
--  发布时间：2013/12/6 12:25:00
--  
我知道,现在就是对的反而出不来,我等下上个例子