窗口AfterLoad代码
Tables("入库单_Table1").fill("SELECT * From {入库单}","入库单",False)
'Tables("库存统计(货品入库单)录入_Table1").SetColVisibleWidth("入库单编码|100|货品名称|100|货品编码|100|货品规格|100|单价|80|数量|100|小计|120|采购员|80|采购日期|80|库房名称|80|销售商名称|80|生产厂商名称|80")
Tables("入库单_Table1").AllowEdit = True
e.form.Controls("DateTimePicker1").BindingField = "入库单_Table1.入库日期"
e.form.Controls("DateTimePicker2").BindingField = "入库单_Table1.采购日期"
Tables("入库单_Table1").Cols("入库日期").DataCol.SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)
'------------------------------------现在时间
Dim lb1 As WinForm.Label
lb1=e.Form.Controls("现在时间")
lb1.Text = Date.now()
'-----------------------------------------------
加好友 
发短信
Post By：2014/7/21 14:51:00 [显示全部帖子]
