点击保存修改,根据编号的起/止,动态插入表,编号是有型号+生产日期+四位顺序号组成。保存修改的按钮事件:
Dim count As Integer
Dim q As String
Dim z As String
Dim pname As String
Dim pprodate As String
pprodate = dtprodate.Value
Dim pDate As new Date(pprodate.Substring(0,4),pprodate.Substring(5,1),pprodate.Substring(7,2))
pname = proname.Value
q=txtboxq.Value
z=txtboxz.Value
count = CInt(z)-CInt(q)+1
bh = protype.Value & Format(pDate,"yyyyMMdd")
If count=0 Then
count=1
End If
'链接数据库
Dim cmd As New SQLCommand
For i As Integer = 1 To count
Dim nbh As String
nbh =bh & Format(i,"0000")
cmd.CommandText =" insert into recordproducts (productNo,productName) values ('" & nbh & "','" & pname & "') "
cmd.ExecuteNonQuery
Next
Tables("recordproducts").DataTable.Load()
1:数据库的表中已经插入了数据,为什么父窗口的中table不显示数据?
2:怎么更新父窗口的table?加上这句:Tables("recordproducts").DataTable.Load()这个foxtable程序就会崩溃。
第一次用狐表,请各位专家多多指教。拜托!!!