Dim tablePOSSalesTable As POSDataSet.POSSALESTABLEDataTable = POSDataSet.POSSALESTABLE Dim row As POSDataSet.POSSALESTABLERow row = tablePOSSalesTable.NewPOSSALESTABLERow row.POSID = GetNextId("POSSalesTable", "POSId", FormType.POS) INVOICEDATEDateTimePicker.Focus() '当绑定数据源时这样设置视乎无效,改用row.(fieldName) = XXX 的方式赋值 'INVOICEDATEDateTimePicker.Value = Today 'CREATEDBYTextBox.Text = "XXG" 'CUSTACCOUNTTextBox.Text = "W1" 'POSNAMETextBox.Text = "Walkin customer" 'SALESRESPONSIBLETextBox.Text = "100" DEFAULTM8RATETextBox.Text = "0.3" row.INVOICEDATE = Today row.CREATEDBY = "XXG" row.CUSTACCOUNT = "W1" row.POSNAME = "Walkin customer" row.SALESRESPONSIBLE = "100" row.VIPNUMBER = "VIP 999" tablePOSSalesTable.AddPOSSALESTABLERow(row) '还需调用Update方法才能把数据存入数据库中 菜鸟代码,仅供参考!O(∩_∩)O~