DataTables("订单明细").RejectChanges
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
txt1.text=""
'Dim y,m,d As Integer
'y=Date.Today.Year
'm=Date.Today.Month
'd=Date.Today.Day
Dim s As String
Dim xl As Integer = 0
'For Each dr As DataRow In DataTables("入库单号").SQLSelect("[单号] like 'R" & "*'")
For Each dr As DataRow In DataTables("订单明细").SQLSelect("")
s=dr("订单号")
s=s.replace("TPL","")
If xl <cint(s)
xl=CInt(s)
End If
Next
txt2.text="TPL"+Format(xl+1,"000000")
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
dtp1.value=Date.Today
Tables("订单窗体_table1").addnew
msgbox(1)
Tables("订单窗体_table1").Current("订单号")="TPL"+Format(xl+1,"000000")
加好友 
发短信
Post By：2018/8/30 11:33:00 [显示全部帖子]
