自定义录入界面中,填充数据到 表格中 有一段代码如下:
Dim tbl As Table = Tables("窗口3_Table1")
If e.KeyCode = Keys.Up Then
tbl.Position = tbl.Position - 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Down Then
tbl.Position = tbl.Position + 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Enter Then
If tbl.Current IsNot Nothing Then
Tables("zhidai").Current("ptypeid") = tbl.Current("ptypeid")
Tables("zhidai").Current("pfullname") = tbl.Current("pfullname")
Tables("zhidai").Current("Standard") = tbl.Current("Standard")
Tables("zhidai").Current("Unit1") = tbl.Current("Unit1")
Tables("zhidai").Current("price") = tbl.Current("price")
Tables("zhidai").current("gongxu")=tbl.Current("gongxu")
Tables("zhidai").current("shuliang")=0
End If
e.Cancel = True
e.Form.Close()
End If
如果 是填充数据到 窗口中的 textbox 中呢?
比如 ptypeid、 pfullname 等列 不是 在表格中的 ,而是窗口中的。 “销售录入”窗口中 pfullname 是textbox文本框控件。那么怎么填充 pfullname 呢?