Dim r As Row = Tables("主窗口_table2").Current
If r IsNot Nothing Then
r.Locked = False
Dim id As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dw As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim zz As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim sj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dx As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim zt As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim fl As WinForm.ComboBox = e.Form.Controls("ComboBox5")
Dim bz As WinForm.TextBox = e.Form.Controls("TextBox2")
r("ID")=id.Text
r("单位")=dw.Text
r("作者")=zz.text
r("时间")=sj.Value
r("对象")=dx.Text
r("主题")=zt.text
r("分类")=fl.text
r("备注")=bz.text
r.Save
r.Table.AllowEdit=False
End If
Tables("主窗口_table2").save
求解:
Tables("窗口1_Table1").Fill("Sele ct [_Identify],[客户],[数量],[单价] From {订单}",False)
假设订单管理表中还有一个订单编号字段 但是在窗体打开事件中 并没有加载这个字段,在实际使用中会用到这个字段 ,写值时会提示找不到订单编号字段。该怎么使用呢?