各位老师帮我看下问题,谢谢了
首先在窗体 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编辑过]